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ANALOG Computing, 
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while on-line, to be eligible for these bonuses. 

How to connect 

First, select a data communications network: Telenet or Tymnet (in the U.S.). or 
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Editorial 



So. . .what are you doing tliis weekend? 
Yes, the weather is warming up, as well as 
the barbecue on the back deck, and it's 
time to head for the beach. Well, forget it! 
(You can go to the beach anytime.) How 
about attending that Atari convention near 
you? 

These fairs are sponsored by the users' 
groups in the area where the conventions 
are held, and they're also supported by 
Atari Corp. itself. As a matter of fact. Atari 
can usually be found as the center exhibit, 
and frequently has the largest display. 

What's there to do at an Atari fair? Well, 
that depends on what the planners want, 
on an individual basis. You can count on 
your local Atari dealers — as well as deal- 
ers from outside the area — showing their 
wares. Manufacturers from all over the 
U.S. (and Canada), who produce both 
hardware and software, also attend. They 
demonstrate and explain their products, 
both those for 8-bits and for STs. 

As a matter of fact, there is quite a flur- 
ry of activity and enthusiasm surrounding 
8-bit machines at these events. Many com- 
panies utilize these shows as a good time 
to announce and release new products. 

A popular exhibit — which often times 
turns out to be the greatest attention grab- 
ber — is the MIDI setup. Hybrid Arts, Elec- 
tronic Music Publishing, and others turn 
the convention hall into an electronic mu- 
sic wonderland with their synthesizers 
blasting out remarkable tunes. Recently, 
Hybrid Arts has also been holding a com- 
petition involving their new Midi Maze 
game, where up to sixteen players battle 
it out on just as many STs. . .all at the 
same time! 



On a more serious note, seminars are 
given on various topics, including such 
subjects as: what's going on inside Atari, 
desktop publishing, programming. Atari 
computers and the business market, and 
whatever that show's committee has plan- 
ned, based on what companies with their 
respective participants attend. 

Thus far, we've attended user shows in 
Glendale (in the Los Angeles area) and San 
Jose, California; Pittsburgh and AUentown, 
Pennsylvania; as well as Buffalo, Dallas 
and Seattle. (Whew!) 

I find these shows a golden opportunity 
to speak to our readers first hand and learn 
what they're doing with their machines. 
This keeps us in touch with the real Atari 
community and gives us the opportunity 
to discover what they want out of our pub- 
lications. I personally attend most of the 
shows, usually accompanied by one of our 
technical or editorial staff members. 

Every month we list the Atari fairs, their 
location and where to obtain additional in- 
formation. Upcoming Atari tests are plan- 
ned for Atlanta and San Jose, both in June. 
These two shows are exceptions; they are 
run primarily by Atari, without support 
from any major users' group. In July, users 
in Illinois and surrounding states can 
check out what looks to be a big show in 
Chicago, followed in August with a show 
in the Detroit area. 

The first Atari fair was held in Glendale, 
California in September of 1986. That suc- 
cessful event will be repeated in Septem- 
ber of this year, again at the Glendale Civic 
Center. And October will see the first 
Northeast Atari Computer Fair, to be held 
Columbus Day weekend in Worcester, 



Massachusetts. This show is in conjunc- 
tion with the Boston Atari users' groups, 
via the Boston Computer Society. Local 
support will also come from one of the 
largest Atari distributers in North Ameri- 
ca, CSS East (formerly APEX Resources), 
and your favorite Atari magazines, ANA- 
LOG Computing and ST-Log. 

Later this year, look for a show in Palm 
Beach, Florida. . .contrary to w^hat I said 
earlier make this a time to catch a show 
and some rays. Into 1988, new shows in 
the works are: Honolulu, Hawaii; St. 
Louis, Missouri; and New York City. 

So make this your golden opportunity 
to meet those who produce and support 
the Atari computer line, face to face. They 
value your input on their current product 
lines, and are interested in what Atari 
owners would like to see for their ma- 
chines. 

And, beyond all of that, you'll find this 
an educational experience, coupled with 
lots of fun! 




Lee H. Pappas 

Publisher 

ANALOG CompuUng 
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Reader cominent 



Better Late Than Never Dept.: 
a note from Micro-Novels. 

First, let me thank you for reviewing 
Micro-Novels (Panak strikes!, issue 40). I 
appreciated your kind words about the 
theme and text. I agree that there are draw- 
backs in adventures residing in RAM, such 
as limited vocabulary. 

However, let me point out that Star Voy- 
ages was not intended to be "room orient- 
ed," but "story oriented." Hence its origi- 
nality. Also, notliing was mentioned about 
the vocabulary in Casebook of Hemlock 
Soames, and yet this series relies heavily 
on the Infocom mystery series for its vo- 
cabulary, which is limited. 

My main beef about your review is the 
statement, "You're flying blind unless you 
know someone who's already ordered one." 
Without additional clarification, it would 
seem you Eire encouraging piracy! Further- 
more, I don't know anyone in the software 
industry who offers a "money-back guar- 
antee"! Instead, Micro-Novels offers a cus- 
tomer protection plan. 

With the return of a signed license 
agreement, the purchaser may make a copy 
of the adventure purchased, for use on his 
system only. Also, registered owners can 
request help in solving the adventures. 
Hints, word lists, or personal help will be 
given to registered owners, when a self- 
addressed, stamped envelope is included 
with such a request. 

All things said and done, I appreciate 
the interest you've shown us. 

Thank you, 

Frank S. Eva 

Micro-Novels 

Milwaukee, WI 53215 

We hope none of our readers took the 
above-quoted statement to he supportive of 
piracy. It was meant to encourage use of 
the Atarion network of information and 
advice. 



Mr. Eva was far more prompt in writing 
us than we were in printing his letter. Our 
apologies to iVIicro-Novels; tiiis column just 
/iiis up too fast! — Ed. 

Easy-Draw update. 

In the issue 44 review of Easy-Draw, an 
object-oriented drawing program by Mi- 
graph, it was stated that a new version (1.1] 
would be available in July, 1987. Rather 
than releasing version 1.1 (which saves and 
loads .GEM format files) last summer as 
discussed with Mr. Leyenberger, we at Mi- 
graph decided to release 1.1 last fall. 

There were several reasons for this de- 
cision. At the time, it was more expedient 
for us to include several enhancements to 
Easy-Draw, rather than add them one at a 
time. To achieve that end, we sent a sur- 
vey to all registered owners and imple- 
mented the top ten requested enhance- 
ments. We feel that in this manner we 
have better served our registered owners. 
As updates become available, all registered 
Easy-Draw owners will receive a notice 
from Migraph. 

■Version 2.1 is now current, available to 
registered owners. To obtain an upgrade, 
they need only send their master disk and 
$3.00 to Migraph. 

Thanks very much. 

Kevin C. Mitchell 

President, Migraph, Inc. 

720 South 333rd Street, Suite 201 

Federal Way, WA 98003 

This is another letter that's better late 
than never. Now that we've caught up, 
onward! — Ed. 



Disktooling around. 

Last week, while using Speedscript on 
a DOS 2.5 formatted disk, somehow six 
files got scrambled. As 1 had duplicated 
the disk, my backup was scrambled, also. 



I did not want to retype all those docu- 
ments. I decided to find a solution to fix 
a double-density DOS 2.5 disk. I remem- 
bered Disktool Rev. 3, in the ANALOG 
Compendium. I was very disappointed 
when I read that this program worked only 
on single-density disks. 

While studying Listing 5, the Disktool 
BASIC program, I noticed that all sector 
number limits were set by that program. 
Since DOS 2.5 is compatible with DOS 2, 
I surmised that if I changed the high limit 
to 1010 and there were no limits set in List- 
ing 1, the M/L loader program, this new 
version could work with DOS 2.5. 

I changed all 720 references to 1010 in 
the following lines; 460, 475, 530, 550. 570 
and 590. 

I was relieved to find out that it worked 
perfectly with the new DOS 2.5. Having 
found the link error, I fixed it with option 
M. Fixing that one file also fixed all the 
others. 

Please pass on this information to your 
readers, who could recover scrambled files 
enclosed in brackets on a DOS 2.5 disk. 
I would like to thank you again for your 
great magazine. 

J.C. Lemieux 

Sherbrooke, P.Q. , Canada 

More magic for Magic Spell. 

Congratulations for youi' fine magazine 
and your ability to provide the Atari com- 
munity with excellent news and programs. 
This letter is in regar'd to Angelo Giambra's 
excellent programs, SPELLER and SP- 
MAINT, from issue 46's Magic Spell. 

The January issue of ANALOG Comput- 
ing contained, in the Reader comment, a 
fix which would allow SPELLER and SP- 
MAINT to be run on a XL/XE computer 
without a translator disk. The fix works for 
SPMAINT, but doesn't go far enough for 
SPELLER, in that it produces a document 
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Reader comment continued 



with a carriage return after each word en- 
tered into the dictionary. The following ad- 
ditional changes will correct this. 

First, the problem stems from a differ- 
ence in operating systems between the 
400/800 and the XL/XE. In this case, a 
single-byte "get text" command would re- 
turn the first character entered, while the 
XL/XE system will return the last charac- 
ter entered. The two places in SPELLER 
where the program asks for user response 
(requiring a N/Y followed by a carriage re- 
turn) were originally set at 1 byte. This 
works fine in the 400/800, but results in 
a carriage return in the memory location 
that's supposed to contain an N or Y in 
XL/XEs. Your solution was to make the re- 
sponse 2 bytes long, which allowed the 
carriage retiirn to go harmlessly into the 
subsequent byte. 

Oops, not so! Now every word added to 
the dictionary has a carriage return ap- 
pended to it in the new document. This 
is because the next byte is used as a tem- 
porary storage for the last character read, 
which denoted the end of a word (space, 
comma, etc.) Since agreeing to put the 
word into the dictionary required a Y plus 
a carriage return, the end-of-word charac- 



ter became a carriage return, and was sub- 
sequently added to the new document. 

One fix for this is to store the end-of- 
word character in die second byte of an im- 
mediate mode LDA instruction, thereby 
eliminating the need to find another safe 
place for it. The temporary storage loca- 
tion used originally had no other use, so 
doing this doesn't cripple some other part 
of the program. Type in the following pro- 
gram and run it. Make sure the filename 
you use agrees with the filename in Line 
10. If you've already put the January Read- 
er comment patch in, delete Line 70. 

19 OPEN ttl,9,e,"D:5PELLER" 

Ze TRAP 58 

39 READ A: PUT »1,A 

49 GOTO 30 

59 CLOSE »1 

69 END 

79 DATA 56,70,57,78,169,2, 

191,75,102,75,169,2 

89 DATA 77,72,91,72,141,19 

6,35,153,11,4,32,31,36,32, 

130,40,169,32,234 

98 DATA 224,2,225,2,6,64 

Sincerely, 
Thomas Houston 
.■ylarcola, OR 
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M/L Editor 



For use in machine language entry 



by Clayton Walnum 



MIL Editor provides an easy method to en- 
ter our machine language listings. It won't al- 
low you to skip lines or enter bad data. For 
convenience, you may enter listings in mul- 
tiple sittings. When you're through typing a 
listing with M/L Editor, you'll have a com- 
plete, runnable object file on your disk. 

There is one hitch; it's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If you're 
starting a new listing, type in the filename 
you want to save the program under, then 
press RETUilN. If there's already a file by that 
name on the disk, you'll be asked if you wish 
to delete it. Press Y to delete the file, or N 
to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine language program in ANA- 
LOG Computing is represented by a list of 
BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 
type the number and press RETURN. If you 
press RETURN without a number, the default 
is the last value entered. 

Tills feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q, for 
"quit"). You must either enter a number or 
press RETURN. 



When you finish a line, M/L Editor will 
compare the entries' checksum with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number's 
correct, press RETURN. 

If you find an error, make the correction. 
When all data's valid, the screen will return 
to grey, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte #1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AufORUN.SYS (make sure you have 
DOS on the disk). 

Thai's M/L Editor. Use it in good health. H 



The two-letter checksum code preced- 
ing the line numbers here is not a part 
of the BASIC program. For further in- 
formation, see the BASIC Editor II, in 
issue 47. 



Listing 1. 
BASIC listing. 



AZ 1« DIN 8Ffl8>,NSC4J,«tfl).BSCll,F$(15J 

,FlStlS> 
LF 11 DIN HODS (4] 
BN 28 LINE=iee0:RETI)N=15SlllACKSP=126lCHK5 

UH=8:EDIT=e 
G8 38 COSUB 458:P0SITI0N 18,61? '^art Or 
Continue? ";:GasUB seei? CHRSIAl 



ZG 48 POSITION 18,8!? "FILENAME") i INPUT P 

SiPONE 752,1:? " " 
FE 58 IF LEN(F$)<3 THEN POSITION 28,18!? 

" "!GOTO 48 
NF 68 IF f4c1,2)<>"D!" THEN F1*="BI"IF1*I 

3)=FS:G0T0 88 
KL 78 F1S=F$ 

TN 88 IF CHRSC«>-"5" THEN 128 
FO 78 TRAP 43e:0PEN tt2,4,8,FlS:TRAP 118 
HO 168 FOR M-l TO 16:GET tt2,A:NEXT XlLINE 

=LINE4ie:G0T0 108 
HH 118 CL05E tl2:0PEN n2,),8,Fl$ :GOTO 178 
UT 128 TRAP leeiOPEN 02,4,8, FlS IGOSUB 448 

IPOSITIOH 18,18:? "FILE ALREADY EXISTS 

! '"IPOKE 752,8 
ZU 138 POSITION 18,12:? "ERASE IT? "!:GOS 

UB SOOiPOKE 752,1!? CHR$ CAl 
UH 148 IF CHRS(A>="N" OR CHR$tAJ="n" THEN 

CLOSE tl2:G0T0 38 
QG 1S8 IF CHRSCA><>"Y" AND CHR$tAl<>"V" T 

HEN 138 
BH 168 CLOSE lt2!0PEN n2,8,8.Fl$ 

IE 178 GOSUB 4se!POSiTiON 18,1:? "CECmi 

\MSB: ";LINE:CHKSUM=8 
GH 188 L1=3:F0R X=l TO 16:P0SITiaN 1]MCX< 

181tl2t<(X>9J,X+2!P0KE 752,8:? "BYTE U" 

;X; ; :GOSUB 318 

KH ISe IF EDIT AND L=e THEN BYTE=BF CX) :G0 

TO 216 
FY 288 BYTE=VALCN$1 
OZ 281 HODSrNS 

BU 218 POSITION 22,Xt2:? BYTE;" " 
VZ 228 BFCXJ=BYTE:CHrSUM=CHKSUmBYTE»X:lF 

CHKSUH>3593 THEM CHK5UM=CHKSUH-18088 
MS 238 NEXT K :CHKSUM=CHK5UM+LIHE:IF CHNSU 

M>39?S THEN CHKSUK=CHKSUH-ie0e8 
IS 248 POSITION 12,X«2:P0KE 752,8!? "CHEC 

KSUH: "; !L1=4:G0SUB 318 
EH 258 IF EDIT AND L=8 THEN 278 
an 268 C=VALCN$) 

SY 278 POSITION 22,X+2:? C:" " 
IL 288 IF C=CHKSUM THEN 388 
CI 2S8 GOSUB 44a:EDIT=l:CHKSUM=8!G0T0 188 
LH 380 FOR X=l TO 16:PUT n2,BF (X) :NEXT X: 

LINE=LINEtl8:EDIT=a:G0T0 178 
FV 318 L=e 
LS 328 GOSUB 580: IF A=ASC«"0"> AND X=l AN 

D NOT EDIT THEN 428 
PO 338 IF AORETRN AND AOBACKSP AND fA<4 

8 OR A>57) THEN 328 
DX 331 IF A=RETRN AND HS-"" THEN NS=HOD$ 
TD 335 IF A=RETRN AND L-9 AND X>1 THEN 35 

8 
JR 348 IF CCfi;=RETRN AND NOT EDIT] OR A^B 

ACXSP] AND L=0 THEN 328 
DM 358 IF A=RETRN THEN POKE 752.1:? " ":R 

ETURN 
GG 368 IF AOBACKSP THEN 488 
5A 378 IF L>1 THEN N$=NS ll,L-l> !60T0 358 
AS 388 Hi-"" 

RE 3Sa ? CHR$(BACKSP1;!L=L-1!G0T0 328 
BB 488 L=Ltl:IF L>L1 THEN A=RETRN:GOTO 35 

8 
HX 418 N$IL)=CHR$(A) :? CHR$(AI ; :GOTO 328 
KN 428 GRAPHICS 8: END 
YT 438 GOSUB 44e:PaSITI0N 18,18:? "NO SUC 

H FILE!":FOR X=l TO 18e8:NEXT X:CLOSE 

n2:G0Ta 38 
FD 448 POKE 718,48:S0UND 8,ie8,12,8:F0R X 

=1 TO 5e:NEXT X:SOUND 8,8,8,8!RETURN 
MY 458 GRAPHICS 23:P0KE 16,li2:P0KE 53774 

,112!P0KE 557,8:P0KE 718,4 
XR 468 DL=PEEK(568)t256«PEEKC561l^4:P0KE 

DL-1,78:P0KE DLt2,6 
HH 478 FOR X=3 TO 3» STEP 2:P0KE DLtX,2:N 

EXT XlFOR X=4 TO 48 STEP 2:P0KE DL4X,8 

ZM 488 POKE DL^41,6S :POKE DLt42, PEEK (568) 
!POKE DLt43,PEEKC561] :POKE 87,8 

AC 490 POSITION 2,0:? "analog Hi oditor"! 
POKE 559,34:RETURN 

HZ 588 OPEN ttl,4,8,"K:"!GET til,A!CLOSE ttl 
! RETURN 



PAGE 10 / MAY 1987 



ANALOG COMPUTING 




Q 



Effects Editor 



Takes the "error" out of 
trial-and-error sound effects. 



by S.M. Baugh 



I was reading about sound effects in a popular book on 
Atari game design recently, and ran across the statement 
that sound effects are usually created through trial and 
error. "Self," I said to myself, "why not get the computer 
to help with the trial to cut down on the error?" The Sound 
Effects Editor in Listing 1 is the result. 

After you have saved a copy of the Editor and run it, 
you will see thirty vertical bars like an abacus, with some 
numbers along the sides and command references on the 
top. 

You "draw" your sound effects with the Editor using a 
joystick in port 1. Move the cursor up the vertical bar for 
a higher tone and down for a lower tone. Press the fire but- 
ton to set the first tone, and the cursor moves to the sec- 
ond bar, etc. If you set the tone at the very bottom on the 
zero line, there will be no tone at that position. 

The commands at the top of the screen are explained 
below. But note that you can change the quality of each 
tone independently. For instance, after you set the tone on 
bar 1, you may change the distortion value of the next note 
by pressing D before pressing the fire button. Thus, in a 
thirty-tone sound effect, each tone might have different 
volume, distortion and sustain values. This would be quite 
tiresome to achieve through trial and error. 

To change the command values at the top of the screen, 
press the key of the first letter of the command as follows; 
(1) Voice — Press V to toggle between the four Atari 
voices numbered 0-3, as in the BASIC command: 
SOUND V,n2,n3,n4. You may set one tone in one 
voice, the next tone in a second voice, and so on, in 
order to have overlapping voices. Explosions are much 



more interesting with several voices set to different 
pitches and different distortion ranges. 

(2) Distortion — Press D to set the even-numbered 
distortion values of the tone. This is the same as BA- 
SIC; SOUND nl,n2,D,n4. The default value is 10. 
which is an undistorted tone. 

(3) Loudness — Press L to raise or lower the vol- 
ume of the sound as in BASIC; SOUND nl,n2,n3,L. 

(4) Sustain — Press S to set the amoimt of time each 
note will be held. The value is in "jiffies" or l/60th 
of a second each. Thus, descending tones set to or 
1 race like falling bombs, while a nice, distorted ex- 
plosion tone set to a sustain of 60 jiffies lasts for 1 
second. 

(5) Control — Press C to set the "Control" feature 
normally not used with the BASIC SOUND command. 
This value is placed in POKEY's AUDCTL register at 
53768 ($D208) for various effects. For instance, a val- 
ue of 1 changes the clock base from 64 KHz to 15 KHz, 
making the sound an octave or so lower. A value of 
64 changes the clock base of voice to 1.79 MHz, 
which is barely audible. Experiment! For more on this 
feature, see De Re Atari, Chapter Seven, or Ian Chad- 
wick's Mapping the Atari, page 124. 

(6) Notes — This is an extra feature for the musi- 
cally inclined. The Sound Effects Editor is not intend- 
ed as a music composer, so the default pitch scale on 
the left of the screen (marked SND for "sound") is an 
unmusical range of tones. Each pitch value — as in the 
command SOUND nl,P,n3,n4 — moves from a value 
of 255 to 17 (STEP-17]. This gives you the broadest 
range of tones good for certain sound effects. 

However, when you press N, the notes (NTS) scale 
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on the right of the screen is selected. These pitch 
values are musical notes from middle C, at the bot- 
tom, to high C. (Set Control to 1, to obtain a range 
from low C to middle C.) Now you can use the Sound 
Effects Editor for some simple tunes if you wish, or 
for sound effects set to different tones. 
When you experiment a little, you'll see that all these 
commands are provided to make available the greatest va- 
riety of sounds for your sound effects. Now press any non- 
command key, such as ESCAPE. This shows you the five 
consol commands you will use: 

(1) START — Press the START key on the consol to play 
through the sound you're working on. You can play 
through it whenever — and as often as — you wish. 

(2) OPTION — Press OPTION to erase a sound you're 
working on, and to change the screen colors. But be care- 
ful! Once erased, a sound effect cannot be retrieved. 

(3) START + SELECT — Press the START and SELECT 
keys together to save a copy of the somid effect on the 
screen to disk. The result is a LISTed BASIC routine start- 
ing at Line 2000, labeled SOUND.SUB. This routine in- 
cludes a machine language sound player in a string called 
ML$. To use this routine in your BASIC program, simply 
move the lines that DIMension and define ML$ to the start 
of your program, and put the USR(ADR(ML$)) line where 
you want the sound played. The data lines contain the in- 
formation used by the USR routine. 

Caution: if you have saved a copy of a somid effect onto 
a disk, don't save another to that disk, or the first will be 
written over and lost. 

If you want to use only the data for the sound effects 
with the BASIC SOUND command, you must first con- 
vert the data, whose design was for use with the machine 
language player Listing 2 performs this conversion for 
your convenience. Type it in and list it to disk. Type NEW, 
and use the ENTER command to enter the SOUND.SUB 
and Listing 2. 

The data lines contain thirty groups of five numbers. 
Each group of five contains the same information as in 
this example: 2030 DATA 2,31,166.1,10. 

The 2 represents the Voice * 2, so divide this 
number by 2 to get the voice for the SOUND 
command. 

The 31 is the pitch value used — like SOUND 
n],31.n3,n4. 

The 166 is a combination of the distortion and 
volume values * 16. You must know the volume 
value ahead of time and use the formula: Dis- 
tortion = (166- VOL)/16. 

The 1 is the value POKEd into ALJDCTL at 
53768. 

The 10 is the sustain value in jiffies. 
However, the machine language sound player in- 
cluded in the subroutine is more efficient and faster 
than BASIC'S SOUND command. 

(4) SELECT+OPTION — Press SELECT and OP- 
TION to send the sound effect data to your printer. 
Neither saving nor printing a sound effect erases it 
from the Editor. 



(5] START + OPTION — Press START and OPTION 
to exit to BASIC. Type RUN if you exit accidentally. 
That's it! You may want to make some changes to the 
program, such as rescaling the SND pitch values — see 
Lines 330-340 and the variable P for "pitch." But what- 
ever improvements the Sound Effects Editor can stand, 
I think it will make your sound effects trials less "error- 
some." H 

S.M. Baugh, with a B.A. in Classics and an M.Div., is 
currently in a Ph.D. program in Ancient History. He is seri- 
ously threatening to buy an ST, and learn C and 6800 ma- 
chine languoge, after enjoying his XE for n year. 



The two-letter checksum code preceding the hne 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47. 



Listing 1. 
BASIC listing. 



50UMD EFFECTS EDITOR 



HX 5 REM *** 

LIW-I-UL I.B »*» 
Mb 10 D0=0:D1=1:D2=2:I>3=3:D4=4:D5=5:D6=6: 

D7=7 : D8=8 : D9=9 ; D10=1O : Dil=ll : D12=12 : Dl 

6=16 :D20=20: DIM MC29. 4J , DS C6) ,C0LC15J 
HL 20 POKE 752, Dl:? CHRS tl25J : POSITION D8 

,D10 
GO 30 GOSUB 15ee:G0SUB 12ee:G05UB 1300: GO 

SUB 2000:C0LCD01=242 
FK 40 GOSUB 1O0O:POKE 764,255 
KJ 50 IF PEEK(53275)=D6 THEN 200 
PC 60 IF PEEK(53279)=D4 THEN 800 
IR 70 IF PEEK 153279) =D3 THEN 40 
UK 80 IF PEEKt53279)=D2 THEN GRAPHICS 0:E 

ND 
NV 90 IF PEEK(53279J=D1 THEN 900 
KZ 100 ST=STICKCD0) :IF ST<15 THEN 300 
JJ 110 IF STRIGt0)=DO THEN 500 
flC 120 IF PEEKt764)=255 THEN 50 
BY 130 K=PEEK{764) :POKE 764, 255 : D= tDl«CK= 

16) ) + CD2»CK=58) ) + tD3»CK=D0) ) + CD4it CK = 62 

) ) + tD5»CK=18) ) + CD6»CK=35) ) , 

MY 140 IF D=DO THEN 70O:REM [iii;i=«;M:ia;tn 
EU 150 ON D GOTO 600, 610,620,630,640,650 

xu 199 REM ijr=vM.i.iii:m 

LZ 200 TRAP 40000: FOR L=De TO 29:K=USR(AD 

RCML$),M(L,De),MCL,Dl) , MCL, D2) , MCL, D3) 

,M(L,D4)) :NEXT L 
TF 210 SOUND DO, DO, DO, DO : SOUND D1,DO,DO,D 

0:SOUND D2,D0,DO,D0:SOUND D3, DO, DO, DO: 

GOTO 50 

OD 299 REM l![iHJ=«>ill;Mim 

BD 300 POSITION X+D5,Y:? CHR$(OC) 

TB 310 X=X+CtST=D7)»CX<29))-t(5T=Dll)»(X> 

De)):IF ST=14 THEN Y=Y-D1»CY>D7) ;IF SC 

=D1 THEN 360 
MM 320 IF ST=13 THEN Y=Y+D1»CY<22) : IF SC= 

Dl THEN 370 
QM 330 IF ST=14 THEN P=P-17»tP>17) : GOTO 3 

90 
AU 340 IF ST=13 THEN P=P+17KCP<255) : P=P*C 

Y<21) :G0T0 390 
MM 350 GOTO 400 
SY 360 I=I+DHHI<15) :P=PEEK £1536+1) : GOTO 

380 
VY 370 I=I-D1»(I>D0) :P=PEEKtl536+I) 
HS 380 IF Y=21 THEN P=121:G0T0 400 
CL 390 IF Y=21 THEN P=255 
11 400 POSITION X + D5,Y:SCRN=PEEKC88]-<-PEEK 
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(89]»256:RCri% = PEEK(84} : CCRSrPEEK t85J 
BT 410 5P0T=SCRN+tRCR5»4ej+tCCRS) :OC=PEEK 
CSPOTJ :0C=0C-t64»C0C=84J J :? "||":GOTO 5 

VR 499 REN lillfctfilMJilAISraT! 

Vl> 598 MCX,De}=U«D2:MCK,Dl}=P:M(X,D2)=D16 

»DS+LD»(P>l>OJ :M(X,D3}=C:NCX,D4}=5»(P>D 

61 
XI 518 FOR L=D7 TO 22: POSITION X+D5,L!? " 

|":MEXT L:POSITIOM X+D5,V:? ■■•":X=X+D1 

:IF X=38 THEN X=D0:Y=22 
HL 528 POSITIOK X+D5, Y : 5CRH=PEEK C88) +PEEK 

(89) W256 : RCR5=PEEK t84J : CCR5=PEEK C85) 
BV 530 SPOT=5CRN+{RCRS»40)+tCCHS) :OC=PEEK 

CSPOT) !0C=0C-(64«C0C=84)) :? "H'MGOTO 5 



lU 599 REM til!H:fH*>IIM»**<*J 

SN 600 V=W+Dl:V=V»tV<D4) :POSITION 18, D3:? 

V:G0T0 50 
MP 610 l>S = D5+D2:DS=DS»CD5<15) : POSITION 18 

,D4:? " ":POSITION 18, D4:? DS:GOTO 50 
II 620 LD=LD+Dl:LD=LD*CLD<D16) [POSITION 1 

8,D5:? POSITION 18, D5:? LD : GOTO 5 



OY 630 S=S+Dl:S=S»CS<61) iPOSITION 32, D3:? 

" "rPOSITION 32, D3:? S : GOTO 50 
EN 640 C=tC*D2) :C=C+CC=D0J :C=C»CC<1291 :P0 

SITION 32, D4:? POSITION 32, D4:? 

C-.GOTO 50 
TX 650 SC=SC+D1!5C=5C»CSC=D1J :P=DO!l=D0:Y 

=22:0C=124 
TK 660 IF SC=D1 THEN POSITION D1,D6:? "SN 

D":POSITION 36, D5:? ' TTE" ; GOTO 680 
XP 670 POSITION D1,D6:? " BTTi! " ! POSITION 36 

,D6!? "NTS" 
MS 680 FOR L=I>7 TO 22 IPOSITION X + D5,L!? " 

|":NEXT L IPOSITION X+D5,Yl? "||":GOTO 5 

JK 699 REM f=i><=<;i:r=^jJ!T=rrm^^ 

GZ 700 POS ITION D6,D3!? " a#:T!¥1 - Play 

kl^MilJi - P rint " 

YC 710 ? ". llLUMJ - New af=1;>«.lJi - 

End" 

ZG 720 ? " anrim^l - save CAny Key 

) "IPOKE 764,255 
HG 730 IF PEEK 1764) =255 THEN 730 
YH 740 POKE 764,255:P0SITI0N D6,D3:? "Hoi 

cei ";U;" "iPOSITlON 22, D3;? 

"Sustain: ";S;" " 
HM 750 ? " Histortioni ";DSj" ":P0 

SITION 22, D4:? "gjontrol : ";C;" " 
ER 760 ? " loudness I ";LD;" "iPO 

SITION 22, D5!? "Clotes/Sound " 
RK 770 GOTO 50 

HZ 800 TRAP 50: CLOSE ttDllOPEN ttDl,D8,D0," 

t>lSOUND.SUB"lLN=200O:D$=" DATA " 
HX 810 ? ttDl;LN;" DIM ML$ C54) I RESTORE 203 

0";CHR$C155) :LN=LN+D10 
OX 820 ? «D1;LN;" MLS=";CHRSC34);MLS;CHRS 

(34};CHR$C155) :LN=LN+D10I? ttDl;LN;" FO 

R L=0 to 29:"; 
FE 830 ? ttDl;"READ V:READ Pi READ Q I READ C 

1 READ S!U=USRCADRCML$>,U,P,Q,C,S) I NEXT 
L: RETURN"; CHR$C155) 

QZ 840 A=D0:B=D4:FOR I=D1 to D6IGDSUB 860 

:A=a+D5!B=b+d5;next i 

OE 850 CLOSE nDllGOTO SO 

OV 860 LN=LN + D10:? ttl;LN;D$; 

VP 870 FOR L=A TO B:? »D1; MCL, DO) ; ", "; MIL 

,Dl);",";MtL,D2) J",";MtL,D3);",";MtL,D 

4);:IF L<B THEN ? ttDl;","; 
PB 880 NEXT L;? «D1; CHR$ {15 5) : RETURN 

jz 899 REM ij!»:taniili;i>M>y:iri 

TR 900 TRAP 50ILPRINT "»»» SOUND EFFECTS 

EDITOR DATA ««f"iLPRINT 
IR 910 LPRINT "1. Voice X 2"ILPRINT "2. P 
^ itch";LPRIMT "3. Distortion x 16 + Uol 
P UMe" 



QD 920 LPRINT "4. POKE 53768 (AUDCTL - $D 
208)"!LPRINT "5. Sustain CJiffies)"lLP 
RINT 

VC 930 FOR L=0 TO 29 

01 940 LPRINT "DATA "; MCL,D0) ;", "; MCL,D1) 
;",";MtL,D2);",";MCL,D3);",";MCL,D4) 

MS 950 NEXT LiGOTO 50 

Zft 999 REM ^■^=*^■^■^;^Jj:l 

SE 1000 P=DO:U=DO:DS=D1O:LD=D6:S=D2:C=D0: 
SC=D0:I=D0: 00=124: POKE 206,D0IGOSUB 21 

00 

CM 1010 POSITION D6,D3!? "ffloicei ";V 
;" Sustain: 2 ":? " distortion: 
";DS;" Qontrol: " 

VO 1020 ? " loudness: 6 Qotes/Soun 
d" 

HR 1040 FOR Y=D7 TO 22 : X=D5 : POSITION X,Yl 

? ■■iiiiiiiiiiiiiiiiiiiiiiiiiiiiii--:nex 

T Y 
AL 1050 POSITION D1,D6:? "ECH" ! POSITION 3 

6,D6I? "NTS" 
OE 1060 X=D0:Y=22 IPOSITION X+D5,Y:? "H":F 

OR L=DO TO 29:F0R I=D0 TO D4:M(L,I)=D0 

:NEXT I I N EXTLlRETURN 

UH 1199 REM EBaBBanm] 

KfC 1200 GRAPHICS 17:SETC0L0R D0,D2,D12:SE 
TCOLOR D1,D3,D8:SETC0L0R D2, D3, DIO I SET 
COLOR D3,D10,D8:PO5ITION D0,D6 

M. 1210 DIM T$C30) :TS="SOUND effects rW*yil 
EQ ": RESTORE 1250 

it¥ 1220 FOR L=D0 TO 29: READ V:READ P:READ 

QIREAD CiREAD S I U=USR (ADR CML$) , U, P, Q, 

C,S):? «D6;TS(L+D1,L+D1); :NEXT L 

W 1230 ? » D6:? ttD6:? »D6:? «D6;" 3?E 

Hd 1240 SOUND DO,D0,D0,D0:SOUND D1,D0,DO, 

DO; FOR L=D1 TO 500; NEXT L: RETURN 
Xft 1250 DATA 0,34,143,1,5,0,17,143,2,20,0 

,17,138,2,5,0,17,135,2,5,0,17,132,2,5 
ttk 1260 DATA 0,17,130,2,30,0,85,97,64,20, 

0,119,98,64,20,0,85,99,64,20,0,119,100 

,64,20 
tlX 1270 DATA 0,85,101,64,20,0,119,102,64, 

20,0,85,103,64,20,0,119,104,64,20,0,85 

,105,64,20 
VF 1280 DATA 0,119,106,64,20,0,85,105,64, 

20,0,119,104,64,20,0,85,103,64,20,0,11 

9,102,64,20 
TH 1290 DATA 0,85,101,64,20,0,119,100,64, 

20,0,85,99,64,20,0,119,98,64,20,0,85,9 

7,64,20 
KG 1300 DATA 0,119,97,64,20,0,85,97,64,20 

,0,119,97,64,20,0,85,97,64,20,0,119,97 

,64,20 

ftp 1399 REM sa^asio 

JN 1400 RESTORE 1410 : FOR L=DO TO 15 : READ 

D:P0KE 1536+L,D:NEXT L:RETURN 
TD 1410 DATA 0,121,108,96,91,81,72,64,60, 

53,47,45, 40,35,3 1,29 
Rft 1499 REM »*■!!« 

KF 1500 RESTORE 1510:DIM ML$(54):FDR L=D1 
TO 54: READ D : ML$ (L) =CHR$ (D) :NEXT L : RE 

TURN 
LT 1510 DATA 104,104,104,170,104,104,133, 

203,104,104,133,204,104,104,133,205,10 

4,104,168,169 
HF 1520 DATA 0,157,0,210,157,1,210,141,8, 

210,133,20,165,203,157,0,210,165,204,1 

57 
HT 1530 DATA 1,210,165,205,141,8,210,196, 

20,144,2, 176,250,96 
,FC 1999 REM H=t^l| jtH-lilliH 
SF 2000 GRAPHICS : POKE 752, Dl : RESTORE 20 

70 
TO 2010 FOR L=1024 TO 1068: READ D:POKE L, 

D:NEXT L:POKE 208,0: POKE 710,16 
FL 2020 DL=PEEK(560)+PEEK{561)»256:FOR L= 

DL+11 TO DL+26:P0KE L,130:NEXT L 
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ri Sound Effects Editor continued 



JH 2030 POKE 512,e:P0KE 513,4:P0KE 54286, 

192 

KV 2049 POSITION D2,D1;? "EiinJEMMIZHEi 

" I J ! r*<. 1 .1 ! lJ Mbi l- H=IJl l L I»" 

PU 2856 D=255:F0R L=D7 TO 22: POSITION Dl, 

L:? D:D=D-i7:NEXT L 
VY 2060 RESTORE 1410 : READ K : FOR L=D7 TO 2 

l:REai> D:POSITION 36, L:? D:NEXT L:P05I 

TION 38,22:? K:RETURN 
JtY 2070 DATA 72,138,72,166,208,189,27,4,1 
r 41,10,212,141,24,208,232,224,16,208,2, 

162,8,134,208,104,170,104,64 
BR 2080 DATA 18,20,18,22,18,20,18,22,18,2 

0,18,22,18,20,18,26,18,0 
1:5 2160 IF C0LCD6)=242 THEM RESTORE 2110: 
r FOR L=D8 TO 15: READ D : COL CD =D : NEXT L: 

GOTO 2260 
m 2116 DATA 18,26,18,22,18,20,18,22,18,2 

0,18,22,18,20,18,22 
tgiV 2120 FOR L=D0 TO 15 : COL CLJ =COL (L) +D16 : 

NEXT L 
BQ 2200 POKE 7ie,C0LCD6}-D2:P0KE 268,e:F0 
^ R L=D6 TO 15: POKE ie51+L, COL (L) : NEXT L 
Sfc :return 



Listing 2. 
BASIC listing. 



SOUND EFFECTS EDITOR CONUER 



HG 5 RE M *** 

IZ 2000 RESTORE 2030 : U0L=6 : REM Change to 

voluMe value if different 
QJ 2085 FOR L=l TO 30:READ UOICE : UOICE=IN 

TtUOICE/2) ;READ PITCH:READ DIST:DIST=I 

NTCtDIST-U0L)/16J 
BS 2010 READ CNTLiREAD SUSTAIN : SOUND UOIC 

E, PITCH, DIST,UOL!POKE 53768, CNTL 
HT 2615 POKE 26,6 

ZD 2826 IF PEEKC2e}<SUSTAIN THEN 2020 
m 2625 NEXT L 



DISK BACK-UP UTILITY 



Chipmunk 

It's #1. And it just got better. 

Chipmunk is the #1 way to back-up your valuable software without any disk drive modification. 




Innovative Multi-Version Back-Up Utilities 



Unique No-Key, Security Key Disabling Program 



Many New Parameters 



Improved Sector Copier 



Registered Owners May Update For $14.95 



MTiicradaft 

19 Harbor Drive 

Lake Hopatcong, NJ 07849 



To order, please send a check or money order 
made out to Microdaft. For a list of software pro- 
grams that Chipmunk unprotects, send a 
stamped, self-addressed, business-size envelope. 



$34.95 
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REVIEW 






Roland TR-707 

Rhythm composer 



^^' 



ROLANDCORP U.S. 

1200 Dominion Circle 

Los Angeles, CA 90040-3647 

(213) 685-5141 

$595.00 

by Craig Patchett 

To be perfectly honest, I used to be 
somewhat skeptical about rhythm synthe- 
sizers (the "composer" in the TR-707's 
name comes from its editing capabilities); 
most of the inexpensive models I'd heard 
before were instantly identifiable as syn- 
thetic. This isn't surprising, as it's hard to 
realistically imitate percussive sounds. 

Roland doesn't even try. Instead, they 
have digitally recorded the sounds of real 
instruments (two bass drums, two snares, 
three toms, rimshot, cowbell, handclap, 
tambourine, closed and open hi-hat, and 
crash and ride cymbals). When you press 
a key, the appropriate recording is convert- 
ed back into an analog signal and am- 
plified. 

The result is nothing short of astound- 
ing. When I first played the TR-707's built- 
in demo for friends (without telling them 
that it was coming from a synthesizer), 
they all wanted to know who the drum- 
mer was. Even after I showed them the 
sleek TR-707, they wouldn't believe me — 
until they had played it themselves. 

No matter how good the sound from a 
rhythm synthesizer is, it doesn't do you 
much good if you can't do anything with 
it. Even an expert drummer would have 
trouble playing something professional by 
tapping on the TR-707's keys, and most 
people buy a rhythm synthesizer because 
they aren't professional drummers. 

Obviously then, the ease of creating a 
complex (or simple) drum piece is just as 
important as the quality of the resulting 
sound, if not more so. This is where the 



"composer" in the TR-707's name comes 
into play. 

At the top of the TR-707 is a 2%"x2" 
LCD display window that indicates the 
current tempo, mode, and, perhaps most 
important, gives a grapliic depiction of the 
current bar (a bar is a musical division of 
time), which is divided into sixteen equally 
spaced "steps." 

For each instrument sound, there's a row 
of sixteen dots in this depiction. They're 
turned on or off, depending on whether or 
not the corresponding instrument is to be 
played at that particular step. While a bit 
difficult to describe, this method of dis- 
playing a bar greatly simplifies the task of 
creating one. 

A bar can be created in one of two ways. 
The first is called "step editing" and is, 
perhaps, the easiest, since you don't have 
to worry about timing. In this mode, you 
specify the instrument sound that you 
want to add or change, then use the 
TR-707's sixteen instrument keys to select 
the steps for which you want that instru- 
ment to be played (LEDs above the keys, 
as well as the dots in the LC^D window, in- 
dicate which steps are on and which are 
off). 

By doing this for each instrument, you 
can gradually build up a complete bar. If 
you make a mistake or change your mind, 
corrections are as simple as pressing the 
key for a step that's tm'ned on, to turn it 
off again. 

The other way of creating a bar is called 
"tap editing," and lets you build your bar 
in real time. In other words, each instru- 
ment key now controls that instrument 
soimd (rather than controlling a step for 



one particular instrument), and you sim- 
ply hit a key when you want that instru- 
ment to play. 

The bar plays over and over again as you 
edit (as it does in step edit mode), so you 
can layer instruments on top of each oth- 
er as you go. Or you can erase mistakes 
(by holding down a key for one complete 
play of the bar). You can even switch over 
to step editing mode to do the fine tuning. 

A one-bar phrase as created above is 
also called a rhythm "pattern." up to sixty- 
four such patterns can be created and 
stored in the TR-707's memory, then se- 
quenced together to form one of four 
"tracks." 

Together, these tracks allow the sequenc- 
ing of up to 998 bars, in any order, to form 
a complete drum piece. Track editing is 
even simpler than pattern editing and in- 
cludes capabilities for inserting, deleting, 
copying and replacing bars. Once complet- 
ed, tracks can even be saved to a regular 
tape recorder, an optional memory car- 
tridge or an external computer (with the 
appropriate softwai'e). 

Some of the TR-707's other capabilities 
include adding shuffle, flam and accents, 
changing tempo, changing scale (2/4, 3/4, 
4/4, 6/8, multiples of these, other special 
times like 5/4 and 7/4, and mixed times — 
all can be easily set) and adjusting the vol- 
ume of each instrument sound individu- 
ally (the back of the TR-707 also has indi- 
vidual outputs for each instrument, as well 
as a combined output, so that you can add 
echo, equalization or whatever suits your 
needs). 

You can even play the TR-707 from an 
external keyboard, such as that on the Ca- 
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^4 Review continued 



sio CZ-101. This is done through the built- 
in MIDI interface, which, among other 
things, allows you to synchronize the TR- 
707 to a MIDI clock signal. This is neces- 
sary, if you want to play something that re- 
quires the TR-707 to be in time with one 
or more other synthesizers. And. since 
MIDI allows you to have yom- Atari play 
the TR-707, the track and pattern editing 
capabilities can be extended even further 
with MIDI. 

The TR-707 is a dream come true for 
anybody who's sick of using their desktop 
as an imaginary drum set. as it allows any- 
one with an ear for percussion to produce 
professional-sounding drum pieces. And, 
at $595 suggested retail (I've seen it adver- 
tised for under $475), it's a dream that's 
affordable. 

The TR-707 comes with an extensive 



manual that makes learning the seeming- 
ly complex system easy. The only com- 
plaint I have about the manual is this; they 
include a MIDI guide apparently translat- 
ed from Japanese by someone with a limit- 
ed knowledge of English. It is, as a result, 
close to incomprehensible. An example: "It 
is of cource [sic] true, however, let us pro- 
vide further description not to cause mis- 
understanding." Sure. Fortunately, the 
guide is more of an extra than a necessity, 
and can be ignored without penalty. 

Craig Patcheft is the author of several 
microcomputer books and a valued con- 
(ributor (o ANALOG Computing. A loyal 
Atari supporter since 1979, he's currently 
a software engineer /or Perkin-Elmer Corp. 
in Nonvalk, Connecticut. 



WANT TO 

SUBSCRIBE? 



It's worth it. 



CALL TOLL FREE 
1-800-345-8112 



ATARI USERS' GROUPS 



Pasadena Area Local 

Atari Computer Enthusiasts (PALACE) 

Meetings covering the 8-bit computers. 

For information, contact the BBS at (818) 359-1697. 

California Original Atari ST User Group (COAST) 
1015 Esther Dr, Pleasant Hill, CA 94523 
(415) 945-1949 

Meetings; newsletter: FirST. President: Chuck Thorp. 

Santa Barbara Atari Computer Enthusiasts (SBACE) 
RQ Box 3678. Santa Barbara, CA 93130 
Meetings; BBS; newsletter President: Conrad Weiler 

Pueblo Atari ST Enthusiasts (PASTE) 
c/o Computer Palace 

702 West 10th St., Pueblo, CO 81003 
Meetings; BBS. Contact George Heymann or call 
the BBS at (303) 544-4432 Sun. & Mon. at 300 baud. 

Danbury Users Group (D'BUG) 

21 Rita Dr, New Fairfield, CT 06812 
Meetings; newsletter President: Dan McNeil. 

Atari Computer Owners Resource Network (ACORN) 

c/o Ken Helms, 3627 Iowa Ct.. Fort Wayne, IN 46815 
Meetings; BBS; newsletter: The Nutshell. 
President: Kim Stahn, 

Cascades Atari Computer Enthusiasts (CACE) 
PO. Box 6161, Jackson, Ml 49204 
Meetings; BBS; newsletter: Michigan Atari Magazine. 
President: Harold LaRue. 



Michigan Atari Computer Enthusiasts (MACE) 
RQ Box 2785, Southfield, Ml 48037 
Meetings; BBS; newsletter: The M.A.C.E. Journal. 
President: Tom Sturza. 

Dedicated Users of STs (DUST) 

RO Box 42096, Las Vegas, NV 89116 
Meetings; newsletter: DUST Bin. 
President: Mike Glenn. 

Micros of Monmouth 

RO, Box 221, Englishtown, NJ 07726 
Meetings; BBS; newsletter 
President: Mike Carovillano, 

Metropolitan Atari News & Information Association (MANIA) 
RO. Box 536, Kingsbridge Station, Bronx, NY 10463 
(212) 627-5830 Manhattan's only Atari users' group. 
Meetings; BBS; newsletter President: Nevin Shalit. 

ST Atari Resource (STAR) 

C-55 University Mall, Orem, UT 84508 
Meetings; BBS; newsletter 
President: Dr Thomas K, Martin. 

Blue Mountains Homebrew Computer Club 
c/o Eric Lindsay, 6 Hillcrest Ave., 

Faulconbridge NSW 2776, Australia 
Meetings; newsletter: The Jackintosh Gazette. 

Atari Computer Users' Group of the Future 

c/o Alejandro Lotwin T. Apartado Postal 11-456 
06100 Mexico, D.F, Mexico 
Contact above for further information. 



ATTENTION USERS' GROUPS 

If you would like your organization to be listed here, send information (and newsletter if appropriate) to ANALOG Computing 
Group Listing, RO. Box 23, Worcester MA 01603. ANALOG Computing is not responsible for errors. 
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FEATURE 




Hard Disk 
Primer 



Curious about hard disk drives? 

Here's an explanation of tliem 

by an authority— the president of iCD, Inc. 



by Tom Barker 



Once you've tried one, you'll never want to give it up. 
Thai's the problem with hard disk drives: they're psycho- 
logically addictive. A hard disk drive will move your com- 
puter into a whole new class of productivity machines. 
Whether your use is telecommunications or a database for 
your business, a hard disk drive will double your efficien- 
cy. There are a few issues we'll discuss that should help 
you select the hard disk drive that's best for you. First, 
a little inside information. 

What's inside. 

The i-vinchesfer type or "fixed" hard disk drive operates 
like a floppy disk drive from which you can't remove the 
disk. The disk and heads are inside a sealed chamber that 
should never be opened. A hard disk is much faster, more 
reliable, and stores many times the capacity of a floppy. 
The speed and precision of a hard drive results in greater 
density and shorter access times. An Atari 1050 turns the 
disk at 288 rpm (revolutions per minute). A fixed hard disk 
drive spins at 3600 rpm. There are also removable hard 
disk drives available, which usually have the disk in a plas- 
tic cartridge. These generally run at 1800 rpm, and head 
movement is considerably slower. 

The hard disk drive head is aerodynamically designed 
to float on a cushion of air several microns (millionths of 
an inch) above the plotter or disk. The platter is accurate- 
ly machined and very rigid, unlike a floppy. There are 
usually two or more heads in each fixed drive (20-meg 
drives usually have four], with one or two heads on each 
side of the platter. Many drives have more than one plat- 
ter. The platters are divided by concentric circles called 
cylinders. These are like the "tracks" on a floppy disk. A 
S'A-inch platter will have from 150 to 640 cylinders, com- 
pared to 40 tracks on a formatted Atari 1050 disk. As you 



may have already surmised, precision stepping (head 
movement) is required. 

Density. 

There are currently two commonly found density 
schemes (also called data packing or encoding) used. The 
most common and least expensive is called JVIFjM (Modi- 
fied Frequency Modulation). MFM is the standard encod- 
ing method used with double-density drives. MFM is what 
1050 disk drives use for dual density (FM is used for sin- 
gle density), and what US Doublers use for "full double" 
density. A standard S^A- or 3V2-inch hard disk drive using 
256 byte sectors with MFM encoding will format 32 sec- 
tors per cylinder. 

Recently, a newer encoding scheme called RLL (Run 
Length Limited) was developed. This scheme packs one 
and a half times the data of MFM in the same amount of 
space. A standard bVi- or S'A-inch hard disk drive using 
256 byte sectors with RLL encoding will format 48 sec- 
tors per cylinder Since RLL packs more density, it requires 
special media. RLL controller boards only put out RLL en- 
coding, and MFM controllers only put out MFM. You can- 
not mix the two types on the same controller. 

Drive manufacturers have modified their standard 
MFM-rated drives to handle RLL encoding. An example 
is the Seagate ST238 30-meg. It is identical to the ST225 
20-meg, except that it has been certified for RLL use. The 
company probably uses a higher quality magnetic coat- 
ing on the platters and may also be adjusting the data tim- 
ing electronics. 

If you format an ST238 drive with an MFM controller, 
you'll end up with 20 meg. If you format the same drive 
with an RLL controller, you'll end up with 30 meg. It is 
not recommended that you format an ST225 with an RLL 
controller. It will probably give you 30 meg, but the data 
integrity is not guaranteed — and that's very important 
with hard drives! 
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•3 Hard Disk Primer 



continued 



Speed. 

The interface is another area of major difference between 
hard and floppy drives. High-speed SCSI or SASI inter- 
faces are used with hard drives and are capable of trans- 
ferring 5-meg bps [bits per second). The computer archi- 
tecture, operating system and DOS usually slow the actu- 
al transfer rate considerably. Atari 1050 disk drives trans- 
fer data at 19. 2K baud, while Atari SF354 drives work at 
neai- 250K baud. These ai-e all burst rates (the fastest trans- 
fer rate hypothetically possible); actual data transfer is 
much slower, due to head seeking and settling times as 
well as DOS overhead. See the following chart for actual 
calculated speeds done under test. 

The test procedure was to copy a large file from a de- 
vice (RAMdisk, floppy disk, hard disk) back to the same 
device. In this comparison, baud was converted to bytes 
per second by dividing by 10, which should give a more 
meaningful value to these numbers. TOS was used with 
the 520ST, and SpartaDOS with a 130XE was used for the 
8-bit tests. 



Type Burst Rate Actual Rate 

1050 Double Density 1.9K bytes/sec .9K bytes/sec 

1050 DD UltraSpeed 5.4K bytes/sec 2.5K bytes/sec 

MIO RAMdisk 56.0K bytes/sec 54,0K bytes/sec 

MIO Hard Disl< 42.0K bytes/sec 14.0K bytes/sec 

SF354 25.0K bytes/sec 4.0K bytes/sec 

ST RAMdisi( 500.0K bytes/sec (est.) 200.0K bytes/sec 

ST Hard Disk 500.0K bytes/sec 30.0K bytes/sec 



Size. 

The fixed hard disk drive is a high-speed storage de- 
vice which holds 5 or more megabytes, depending on the 
size you purchase. The 20-meg is the most commonly sold 
size today and is the equivalent of 222 single-density disks 
on an 8-bit, or 55 single-sided ST disks. 

Parts breakdown for an external drive. 

Case and Power Supply — The case should have metal 
shielding to keep the RFI (Radio Frequency Interference) 
noise down. Power connectors and mounting brackets are 
required. The case needs a quiet fan to keep things cool 
inside. A well-filtered switching power supply, aromid 45 
watts with 4 amps of +5 vdc and 2 amps of +12 vdc, is 
important. 

Host Adapter — This is the MIO hard disk port for the 
8-bit Ataris. The ST computers need a host adapter board 
to convert the DMA port to a standard SCSI or SASI in- 
terface. A host adapter may also have other functions 
which add versatility to the computer (like a real-time 
clock or other ports). 

Controller — This is the complex device which actual- 
ly controls the hard disk drive. It's an intelligent, high- 
speed device with a CPU, ROM, RAM, and interface cir- 
cuitry including a well-tuned analog section. The con- 
troller has an instruction set which interprets commands 
from the computer and performs the functions on the drive 
units. Most controllers are capable of handling two sepa- 
rate hard drive units (some restrictions on multiple drives 
will vary, depending on controller design). Controllers also 
have a device ID, which means that a well-designed host 



adapter can handle up to eight controllers at once. The con- 
troller also requires power, usually derived from the drive's 
power supply inside the case. 

Hard Drive Unit — This is the heart of the system . . . 
and the part people always discover deals on, in maga- 
zines like Computer Shopper. Yes, 20 meg for $300 or 10 
meg for $200 sounds like a bargain, but you also need the 
other parts mentioned here to make your system fully fimc- 
tional. The hard drive miit is the delicate sealed mecha- 
nism where all the data is stored. It has a circuit board, 
usually with an ST506/ST412 interface. This is identified 
by a 34-pin and a 20-pin male edge connector. It also has 
a polarized plug for DC power (like the controller). The 
hard drive miits are commonly available in full-height and 
half-height configm'ations in the 5y4-inch disk size, and 
the half-height configuration in the SVz-inch size. The ad- 
vantage of the half height models is that you can usually 
fit two of these units together, sharing one case and pow- 
er supply. Some of the newer 3V2-inch drives also have au- 
tomatic head miloading when power goes off. This is a 
nice feature and can extend head life. A hard disk unit 
should be expected to give at least two full years of con- 
tinuous service. Since they are sealed units, it is not 
recommended that you attempt any service on a bad unit. 
Any dust allowed inside can destroy reliability. 

Cables — There are several cables required for an ex- 
ternal drive assembly. The first set uses 20-pin and 34- 
ribbon cables to comiect the ST506/ST412 interfaces to the 
controller. The next is the 50-conductor cable to connect 
the controller's SCSI port to the host adapter. (An ST also 
requires a cable from the host adapter to the DMA port.) 
Of course, the others are the AC and DC power connec- 
tors. When building your own system, most probleins stem 
from improperly connected equipment. 

Program — A good format program allows versatility 
with the use of different drives (if any). It also sets the 
sector skew (interlace) which can affect access speed. The 
control program can also affect speed. The ST currently 
requires a handler to be loaded into RAM from floppy disk. 

Low-cost drives 
for the IBIUI PC and compatibles. 

This breakdown has shown the requirements for an ex- 
ternal ST or 8-bit Atari drive, and why they are more ex- 
pensive than the "cheap" IBM-type hard drives sold for 
the PC and compatibles. An open architectm-e, and enough 
space and power for an internal hard disk drive saves $$$. 
Fewer cables and less expensive controllers (due to the 
sheer volume of PCs with hard drives) are also used with 
the PCs, resulting in a lower cost. 

Reliability. 

Hard drives can be very reliable if properly designed 
and used. The design should include a heavy-duty switch- 
ing power supply. These are smaller and run much cooler 
than do their linear counterparts. (Linear supplies work 
okay, as long as they're properly cooled, and you don't 
mind the added weight and size.) Proper cooling is a ma- 
jor factor in hard drive reliability. A fan is still considered 
a necessity by most. Some SVa-inch drives can be run with- 
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out fans, but they do seem to run a bit warm. No one real- 
ly knows how much of a wear factor this will add over the 
next few years. 

Hard disk drives should be left on 24 hours a day, or 
turned on and off just once a day at most. They are not 
meant to be cycled on and off many times a day, like a 
light switch. It takes a tremendous amount of torque to get 
the platter spinning and speed up to 3600 rpm. This torque 
creates wear on the bearings — and the heads — on most 
drives. Another good practice is to park the heads before 
transporting the drive. This positions the heads to the in- 
side of the data area, where damage is least critical. 

Probably the worst thing you can do to a hard drive is 
move it or bmnp it while it's tm'ned on. This is where some 
real damage can occur. At 3600 rpm, if the head touches 
the platter (from shock), both can be instantly destroyed. 
Just remember to exercise care; treat it gently, as you 
would a baby. 

Hard drives are very reliable if properly used, and can 
provide years of continuous use. They're much more relia- 
ble than floppy disks; you just lose far more data if dam- 
age occurs. With good design, proper operating procedure, 
and with regular backup, you'll enjoy a hard drive im- 
mensely! I know I wouldn't work without one. 
Conclusion. 

I hope this article has taken some of the mystery and 
confusion out of the hard disk drive issue. It is my belief 



that anyone who's considering using a computer for a busi- 
ness application or a serious BBS should also consider pur- 
chasing a hard disk drive. You'll be amazed with the 
performance. H 



BUY • SELL • TRADE 

NEW & USED 
COMPUTER PRODGCTS 

Software, Hardware, Books, Accessories 
"EXPOSURE TO OVER 250.000 ATARI" USERS" 



WANT TO SELL? 

We will pay you top $$S for your computer equipment and accessories. Nothing 

is too new, old or obsolete. We will even buy your damaged equipment! 

WANT TO BUY? 

We have one of the world's largest inventories of used Atari and compatible 

hardware, software and accessories. We also carry new Atari products at low, 

low prices. We guarantee every product sold! 

WAIST TO TRADE? 

Now you can trade-in your old equipment for new or used products. Upgrade 

your system quickly and hassle free! ^ -^ 

Cc*ttipaier Repeal Ine. 
VISA I , , Call 



Try our new 24 Hour BBS: (303) 939-8174 



2121 4th Slreel 

Boulder. CO 80302 

(303) 939-8144 

OPEM M-F, MO p.m. PT 



CIRCLE #106 ON READER SERVICE CARD 



Attention Programmers! 



ST-Log is interested in programs, articles, and software review submissions dealing with the 
Atari home computers. If you feel that you can write as well as you can program, then submit 
those articles and reviews that have been floating around in your head, awaiting publication. 
This is your opportunity to share your knowledge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided in printed 
and magnetic form. Typed or printed copy of text is mandatory and should be in upper and low- 
er case with double spacing. By submitting articles to ST-Log, authors acknowledge that such 
materials, upon acceptance for publication, become the exclusive property of ST-Log. If not ac- 
cepted for publication, the articles and/or programs will remain the property of the author. If sub- 
missions are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author's full address and telephone number. 



Send programs to: 

Editor, ST-Log 

P.O. Box 23, Worcester, MA 01603. 
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Tim€UJCR|CS 



Wordwriter ST 48.95 Data Manager ST . .48.95 



Swiftcalc ST . 



. 48.95 Sylvia Porter ST ... . 48.95 



NEW LOWER PRICES 

ATARI 520 ST AND 1040 ST COMPUTERS 

ST ARCADE GAMES 



ABACUS 

Textpro 32.95 

Daratrieve 32.95 

Forth MT 32.95 

Paintpro 32,95 

Assempro 39.95 

Powerplan 49.95 

Abacus Books Call 

ST GRAPHICS 

Degas Elite 48.95 

Easy Draw 48.95 

Cad 3-D 36.95 

Graphrc Artist 1 24.95 

Paintworks 44.95 

IstCadd 31,95 

Aegis Animator 48.95 

Neocfirome 34.95 

IIMFOCOM ST 

Forever Xfeyaging 29.95 

Bally Hoo 25 95 

Cuthroais 25.95 

Deadline 31.95 

Enchanter 25.95 

Hitchiker 25.95 

Infidel 28,95 

Leather Goddess 25,95 

Moonmist 25.95 

Planetfall 25.95 

Seastalker 25,95 

Sorcerer 28.95 

Spellbreaker 31.95 

Starcross 31.95 

Suspea 28.95 

Suspended 31,95 

Trinity 25.95 

U/ishbringer 25,95 

Witness 25 95 

Zorkl 25.95 

Zorkllof m 28.95 

Hollywood Hijinxs 25,95 

ST WORD 
PROCESSORS 

Regent Word II 57.95 

Wordwriter ST 48.95 

Thunder 24.95 

Paperclip Elite Call 

DISKETTES 

Maxell 3.5 SS/DD (10 PK) . . 13.95 
Sony3.5DS/DD(IOPK/. . . 18.95 
Note: Buy Diskettes at these low 

prices when added to any 

other order 

ST ACCESSORIES 

Flip n' File ll-Micro 19.95 

Dustcovers Call 

3 5 Disk Drive Clean Kit ...Call 

Mouse Pad 8.95 

Mouse House 6.95 

RCA 6-Way 

NoiselSurge Prot. 34.95 

Anti-Glare Screen 19.95 

ST UTILITIES 

Music Studio 39,95 

TimeLink 31,95 

Middiplay 32.95 

Micro Cookbook 32,95 

CZDroid 69.95 

EZ Track 39.95 

Write 90 18.95 

Fast 31.95 

Labelmaster 24.95 

Video Wizard 39.95 

Desk Cart 62 95 

DESKTOP 
PUBLISHING 

Drawrrte 99.95 

Publishing Partner 99.95 

ST DATABASES 

DBMan 96.95 

Regent Base 57.95 

Data Manager ST 48.95 

Zoomracks II 96.95 



MICHTROIM 

BBS 2.0 48.95 

Business Tools 3 1 .95 

Calendar 18.95 

Cornerman 3 1 .95 

DOS Shell 24.95 

Echo 24.95 

M-Disk-t- 24.95 

Major Motion 24.95 

Mi-Term 31.95 

Michtron Utilities 37,95 

Cards 24,95 

The Animator 24,95 

Time Bandits 24,95 

Mighty Mail 31 95 

Personal Money Mgr 3 1 .95 

Pinball Faaory 24,95 

Financial Future 24,95 

Eight Ball 18,95 

Hard Disk Backup 24.95 

Match-Paint 24.95 

Karate Kid II 24.95 

GFA Basic 48.95 

Trimbase 62.95 

Space Shuttle 2 24.95 

M-Cache 24,95 

GFA Draft 62.95 

Journey to the Lair 32.95 

Realtizer 149.95 

ST LANGUAGES 

Personal Pascal 49.95 

Mark Williams C 1 14.95 

Metacomco Pascal 69.95 

Macroassembler 49.95 

Lattice C 99.95 

Cambridge Lisp 1 39.95 

Modulall 49.95 

Metacammco Make 49.95 

Modula II Developer's Call 

Fast Basic 89.95 

LOW Basic 44.95 

HIPPOPOTAMUS 

Call for items and prices 

ST BUSINESS 

VIP Professional Call 

Swiftcalc ST 48.95 

Isgur Portfolio 1 24.95 

Financial Cookbook 32.95 

DAC Payroll 32.95 

DAC Easy Accounting .,.44.95 

Dollars and Sense 64,95 

Home Accountant 31.95 

Sylvia Porter 48.95 

Swiftax'86 48,95 

CASIO KEYBOARDS 

CZ 101 Call 

CZ230S Call 

ST Educational 

Decimal Dungeon 24.95 

Fraaion Action 24,95 

Kinderama 24,95 

Read & Rhyme 24.95 

Animal Kingdom 24.95 

Speller Bee 31.95 

Kid Talk 31.95 

Math Talk 31.95 

First Shapes 31.95 

Winnie the Pooh 1 6,95 

ADVANCED ORDERS 

Read-ARama 31,95 

AesopFables 31,95 

Magical Myths 31.95 

All About America 31.95 

Adv. of Sinbad 31.95 

Arabian Nights 31.95 

Wiztype 25.95 

Buzzword 29.95 

1st Letters and Words .... 3 1 95 
Math Talk Fractions 31.95 

ST TELECOMM 

STTalk Ver 2.0 18.95 

BB/ST 31,95 

Flash 27.95 

I.STalk 31.95 



Winter Games 24.95 

Rogue 24,95 

Super Huey 25.95 

Mean 18 25.95 

Famous Course Disk 1 4.95 

Leader Board 25,95 

Brattacus 32.95 

Silent Service 25.95 

Flight Simulator II 33 95 

Champ. Wrestling 24,95 

World Games 24.95 

Video Vtgas 24.95 

Strip Poker 25 95 

Little Computer People . . . 32,95 

Gato 31.95 

Joust 20.95 

Star Raiders 20.95 

Chessmaster 2000 32.95 

Tenth Frame 25.95 

Shanghai 29.95 

3-D Helicopter 33.95 

Micro League Baseball . . .39.95 
WWF Micro Wrestling . . . 39.95 

Skyfox 29.95 

Super Cycle 24,95 

ST Pool 22.95 

Indoor Sports Call 

F-!5 Strike Eagle 27.95 

High Roller Simulator 32.95 

Two on Two Basketball. . .29.95 

Deep Space 29.95 

Arena 22.95 

ST Karate 22.95 

The Wanderer 25.95 

Champ Baseball '86 29.95 

GFL Football 29 95 

Harrier Strike Mission 31.95 

Space Station/Protenor ..25,95 

Sub Battle Simulator 24,95 

AraiC Fox 26,95 

RPV 24.95 

Crystal Castles 20.95 

Gridiron Football 42.95 

ST Wars 24.95 

ST ADVEISrrURES 

Hacker 29.95 

Hacketn 32 95 

Sundog 24.95 

Black Cauldron 25.95 

Apshai Trilogy 25.95 

LIniversell 44.95 

The Pawn 29.95 

Starglider 29,95 

Dungeonmaster 24,95 

Alternate Reality 3 1 .95 

Tass Times 32.95 

Mercenary 2i 95 

Autoduel 32.95 

Ogre 25.95 

Defender of Crown 32 95 

S,D,1 32.95 

Balance of Power 32.95 

Ultima III or IV 38.95 

Portal 32.95 

Kings Quest 1.2 or 3 32.95 

Space Quest 32.95 

Tracker 29.95 

Colonial Conquest 25.95 

Roadwar 2000 25.95 

Wizard's Crown 25.95 

Rings of Zilfin 25,95 

Sinbad 32.95 

Phantasie 1.2 or 3 25.95 

ST PRINT UTILITIES 

Rubber Starrip 24.95 

Printmaster Plus 24.95 

MegafontST 24,95 

An: Gallery 1 or 2 18,95 

Typesetter Elite 3195 

PM Interface 18.95 

Certificate Maker 3 1 .95 

Library I/Certificate Mkr . .21.95 



MOVING SALE SPECIAL #2 

ATARI 1040ST SYSTEM PACKAGE 

INCLUDING RGB OR MONOCHROME MONITOR, 
MOUSE, DOUBLE-SIDED DISK DRIVE, BASIC, 
TOS ON ROM, AND BUILT-IN POWER SUPPLY /fr^ 
FULL MANUFACTURER'S WARRANTY APPUES 

CALL FOR LATEST PRICE 



COMPUT ABILITY MOVIMG SALE 



FOR ATARI 520 ST 
104 ST COMPUTER S 

IVIOVIISK3 SM£ SPEQAL #3 
ATARI 20 M£G f-^ll 

SH 204 HARD ORIVg ^^'* 

MOy/JNG SALE SPECIAL #4 j 
ATAm <P ^1A mSK DRf\/P ^ all 

,f!YTESTOi?A *fll 



RGEI7 AND EXRHIBBBBaFFICe 
AND WAREHOUSE FACILITIES TO SERVICE YOU BETTER 




MOVING SALE SPECIAL #5 
ST MODEM PACKAGE ^149 

•AVATEX I200HC MODEM 'ST MODEM CABLE *ST TALK SOFTWARE 



MOVING SALE SPECIAL #6. 

fOKIMATE 20 COLOR PRlNTERS^^^i 

f&. O I I LLiCj N PRINTfREE shipping in CONTINENTAL USA i 



AT LOWER PRICES 




MOVING SALE SPECIAL #8 



PANASONIC PRINTERS 

Panasonic 10801 1 99 

Panasonic 10911 259 

Panasonic 10921 349 

Panasonic 3131 279 

Panasonic 3151 409 

Panasonic 1592 419 

Panasonic 1595 539 



OKIDATA PRINTERS 

Okidata 120 215 

Okidata 182 249 

Okidata 192+ 369 

Okidata 193-f 559 

Okidata 292E 449 

Okidata 293E 599 



COMPUT ABILITY MOVING SALE 



-/ fiflOVtfSKS SALE m*EQAL #9 
^^^ i349 



COMPUT ABILITY MOVING S. 



MOVING SALE SPECIAL #10 

REALTIZER 

FROM MICHTRON 

A VIDEO DIGITIZER 

WITH SOFTWARE $ 149-95 



AT LOWER PRICES 




MOVING S 
VVTARI 13< 




— / MISCELLANEOUS MOVING SPECIALS 



P.R. Connection 62.95 

USDoubler 49.95 

Animation Station 49.95 
Atari XM301 

Modem 39.95 



Supra 1150 

Interface 59.95 

850 Interface Call 

Graphic AT Interface39. 95 < 



FOR ATARI XL • XE 
400/800 COMPUTERS 



COMPUT ABILITY MOVING SALE 



SPECIAL PURCHASE 
I ATARI XM-301 MODEM 




MOVIIMG SALE SPECIAL #4 



NO SURCHARGE 

ON CREDIT CARDS 

(LIMITED TO 
FIRST 100 ORDERS) 



*ATARI130XE COMPUTER 
'ATAR1 1050 DISK DRIVE 
•ATARI 1027 PRINTER 

•ATARIWRITER PLUS *HOME FILING MANAGER 

•DEFENDER 'MILLIPEDE 'PAINT $ 3QO 

FREE SHIPPING IN CONTINENTAL USA 9 M M 



COMPUT ABILITY MOVING SALE 




MOVIIMG SALE SPECIAL #6 
^PANASONIC 10801 PRINTER 

*SUPRA 1150 INTERFACE 
*1 FREE PRINTER RIBBON 



NO SURCHARGE 

ON CREDIT CARDS 



'269 



FREE SHIPPING ' 

IN CONTINENTAL USA 



AT LOWER PRICES 



MC3^irSI<; SALE SPECIAL #7 






COMPUTABILITY MOVING SALE 



ATARI 



Only ^ 
$32.95 



This is a Direct-Connect 300 Baud 
. Modem That Works With All 
_ 8-Bit Atari Computers 



(Ltmiled to Fifs! 100 Orders) 



NEW LOWER PRICES 

ATARI 800 • 800XL • 1200 XL • 130 XE SOFTWARE 

ACTIVISIOIM BRODERBUND 



Cross Country R^ce 16.95 

Hacker 16.95 

Mindshadow 16.95 

Music Studio 22,95 

Ghostbustefs 1 9.95 



INFOCOM 



Hitchhiker 22 95 

Wishbringer 22 95 

Bal/yhoo 25.95 

Moonmist 22.95 

Leather Goddess 22.95 

Hollywood Hijinx 22.95 

Zork Trilogy 39,95 

ACCESSORIES 

6 Way Surge Protector . . . 29.95 

Monitor Cable 9,95 

Printer St^ind 14.95 

Swivel/Tilr Monitor Stand . 1 9.95 

Anti-Glare Screen 1 9.95 

Tedkwood Disk Holders . . 1 9.95 

Disk Matcher 5.95 

Blank Disks Call 

Printer Ribbons Call 

Dust Covers Call 

Modem Cable 1 4.95 

Printer Cable 14.95 

1000 Sheet Print Paper ... 1 9.95 

OPTIMIZED 
SYSTEMS 

Basic XE 44.95 

Action 44.95 

Mac 65 XL 44.95 

Basic XL 34.95 

All Tool Kits 19.95 

JOYSTICKS 

(NOTE. Prices good when 
combined with any 
other purchase] 

Wico Super 3-Way 19 95 

Unite Joystick 5.95 

Starfightec 8,95 

Tac 3 1 95 

Slik Stick 7.95 

Epyx 500XJ 1 2 95 



EST. 1982 



Karate<a 19.95 

Print S-iop 28 95 

Bank Street Writer 32 95 

Graphic Lib 1.2, or 3 16 95 

Print Shop Companion ... 22 95 

ELECTRONIC ARTS 

Age of Adventure 1 0.95 

Archon 10 95 

Archonll 10 95 

Financial Cookbook 10 95 

Mail Ord Monsters 10 95 

Movie Maker 10.95 

Music Construction 1 0.95 

One on One 10.95 

PinhM Construaion 10 95 

Racing Destruction 10.95 

7 Cities of Gold 10.95 

Super Boulder Dash 10.95 

Touchdown Football ....10.95 

Chessniaster 2000 25.95 

Chickaumauga 23.95 

Lords of Conquest 22.95 

Ogre 25.95 

Rommel/Toburk 26.95 

Starrieell 33 95 

Ultima I 27 95 

Ultima III 31 95 

Ultima IV 38 95 

DATASOFT 

Alternate Reality/City . , . .24.95 
Alt. Reality/Dungeon ... .24 95 

Gunslinger 18.95 

Video Title Shop 21.95 

22\ Baker Street 18.95 

The Mercenary 18.95 

Theatre Europe 21.95 

Data Disk/Mercenary 18.95 

XLENT SOFTWARE 

Megafont II 16.95 

Page Designer 18.95 

Megafiler 18 95 

PS Interlace 18.95 

Rubber Stamp 18 95 

Typesetter 21 95 

BATTERIES 
INCLUDED 

Home Pak . . . , 14 95 

Paperclip w(Spell 36.95 

8-Graph 24 95 



.omput(/lbULtu^ 

P.O. Box 17882, Milwaukee, Wl 53217 

ORDER LINES OPEN 

Mon.-Fri, II a.m. - 7 p.m. CST • Sat. 12 p.m. - 5 p.m. CST 

7b Order Call Toil Free 

800-558-0003 

For Technical Infct Order Inquiries;, or for Wise. Orders 

414-357-8181 

TELEX fliLMI|P£R 9|<l2«0644fi 



MISCELLANEOUS 

Flight Simulator 33.95 

Universe 57.95 

Strip Poker 21.95 

Micro League Baseball . . . 25.95 

Harcourt/Brace SAT 59.95 

General Mgr. MLB 25.95 

Fight Night 18,95 

Triple Pak 14.95 

Leader Board 24.95 

Tourn Disk/Leader Bd 1 4.95 

Executive Disk/Leader Bd . 14.95 

Tench Frame 27,95 

Infiltrator 19.95 

Bop 'n' Wrestle 19.95 

Super Huey 16.95 

Home Planetarium 27.95 

Atariwriter Plus 39,95 

MLS Boxcore/Stat 1 6,95 

Spy vsSpy 1 S2 10.95 

Video Vegas 20,95 

Blajing Paddles 22,95 

Print Driver Const. Set . . . 16.95 

T3C 25-95 

Jupiter Mission 1999 32.95 

Blue Max 2001 19.95 

Championship Loderunnerl9.95 

Home Accountant 30,95 

Apshai Trilogy 1 4.95 

Summer Games 16.95 

World Karate Championship 1 9.95 

R Time 8 Cart 54.95 

Halley's Projea 10.95 

Mastertype 25.95 

Word Anack 32.95 

Math Blaster 32.95 

Speim 32,95 

DLM Teaching Call 

Spinnaker Call 

Hardball 18,95 

SSI 

Carrier Force 37 95 

Wargame Constr Set 1 9.95 

Broadsides 24 95 

Computer Ambush 37.95 

Fighter Command 39.95 

Field of Fire 24 95 

Imperium Galanicum ... .24 95 

Warship 39 95 

Kampgruppe 37 95 

Battle of Antietam 32.95 

USAAF 37.95 

Phantasie 27 95 

Wizard's Crown 27 95 

Gettysburg 39 95 

Panzer Grenider 24 95 

SYNAPSE 

Syncalc 32.95 

Synfile 32.95 

Loderunner's Rescue ....19 95 

Syncalc Templates 16 95 

Essex 25.95 

Mindwhcel 25 95 

Brimstone 25.95 

MICROPROSE 

Silent Service 22 95 

F-15 Strike Eagle 22 95 

Decision in Desert 25 95 

Kennedy Approach 1 6 95 

Crusade in Europe 25 95 

Conflia in Vietnam 25.95 

Top Gunner 1 6.95 



No surcharge for M 



:arci or Visa 



ORDERING INFORMATION^ Please tpeclty tystem. For fas! delivery send cashier's check or money order 
Personal and company checks allcw 14 business days lo clear School PO's welcome. C.O,D. char^et are S3.00. 

In Conlinenlal USA include $3 00 (or software orders 4% shipping lor hardware, minimum $4 00 UaslerCard and Visa orders 
please include card* expiraiion dale and signalure Wl residents please include 5% sales lax HI AK.FPO APO, PuedoRtcoand 
Canadian ofdeis please add 5% shipping minimum $5.00. All other ttnign orden add 15H shipping, minimum S10.00. All orders 
shipped outside the Continental USA are shioped first class insured U S mail II loreign shipping charges exceed the minimum 
amount you will be charged the additional amounl to get your package to you quickly and safely All goods are new and include 
lactory warranty Due lo our low prices all sales are final All delectivs returni mutt have a return authoriiition numlier. Please 
call (414) 357-8181 to oblain an R A # oi your return will riol be accepted Prices and availabilily subject lo change without notice 



REGULAR FEATURE 




8-bit news! 



THE CONNECTION 

Quik Fix: The Print Shop, from White Lion 
Software, gives AtariWriter owners the capa- 
biUty to add a graphic to headers and footers, 
or even make their own letterheads. Icons can 
be used in newsletter headlines or articles, and 
finished work can be saved to disk and then 
retrieved at a later date. 

Among the many Quik Fix features are drop- 
down menus, various borders to select from and 
a mail-merge option. 



(QMsIrk, 







A second version, Quik Fix FC: The Print 
Shop, is available for users of PaperClip. The 
same features that apply to the AtariWriter ver- 
sion work here, as well . This program also of- 
fers drop-down menus and several border se- 
lections. Both packages work with any Epson 
or compatible printer, such as Panasonic, Star 
SG-10, Gemini lOX and Legend. 

Priced at $29.95 each; 48K Disk. White Lion 
Software, PO. Box 357, Ridge, NY 11961. 

CIRCLE #136 ON READER SERVICE CARD 



8-BIT SUPPORT 

A new Innovative Concepts kit modifies 
the Atari CX-85 Numeric Keypad for all soft- 
ware and any Atari 8-bit. All you need is the 
$39.95 kit and an easy modification. 

RAMdrive + 64K brings the 600XL up to 
64K, giving it the ability to run 800XL soft- 
ware. No soldering is required on 600XLs 
with socketed chips. This kit also includes 
the RAM chips. $24.95. 

800XL owners can upgrade to 256K, allow- 
ing for RAMdisk setup or bank-switching 
memory. Minimal soldering is necessary; it's 
complete with instructions for installation, 
user/technical notes, RAM chips, and two 
disks containing RAMdisk handlers, source 
codes and other utilities that use the added 
memory. RAMdrive + XL sells for $59.95. 

For 130XE owners, RAMdrive + XE gives 
you the option of expanding up to 320K. 
Similar to the XL version, but with another 
64K. Designed for those experienced in elec- 
tronics, as quite a bit of soldering/unsolder- 
ing skills are required. Includes memory 
chips and everything else mentioned with the 
XL kit. $44.95. 

RAMdrive + 576K is available by special 
order only. This kit is recommended only for 
those with more advanced kit-building skills. 
Boosts the 130XE up to 576K of RAM m sever- 
al different variations. For information and 
pricing, contact the manufacturer. 

Finally, Imitator Controller gives Happy 
board owners the ability to control writing 
in fast or slow mode via a switch. It also lets 
you control write protect in three modes and 
monitor the write-protect status using a two- 
color LED. The manufacturer claims easy in- 
stallation. $29.95. 

For more information on any of these prod- 
ucts, you can contact Innovative Concepts at 
3U72 Shawn Dr., Warren, MI 48093 — (313) 
292-0730. CIRCLE #137 on reader service card 



TEAK TO TEAK 

Solid teak roll-top organizers for your disks 
are now available, for either 5^/4- or S'A-inch 
disks. The genuine hand-rubbed teak files 
feature a roll-top door and flexible index di- 
viders. 

Model 1200T, sold for $49.95, stores 120 
5y4-inch disks. Model 700T, at $22.95, holds 
70 5y4-inch disks. Model 300T for 3y2-inch 
drive owners holds 30 disks, for a retail price 
of $19.95. So give your desk a classic look — 
and keep your work neatly organized at the 
same time. 




From AAA International Co., 22706 Cheryl 
Way, El Toro, CA 92630 — (714) 951-0747 

CIRCLE #140 ON READER SERVICE CARD 



OTHER NEWS 

Are you curious about how others are turn- 
ing a profit from their knowledge of comput- 
ing? The Association of Electronic Cottagers 
has a new handbook out, covering the ten 
most popular methods for making money us- 
ing personal computers. Some of the home- 
based businesses include: writing, data en- 
try and processing, desktop publishing and 
mailing list services. 

For information on joining the AEC, you 
can contact them at PO. Box 1738, Davis, CA 
95617-1738. circle #133 on reader service card 



Now Atari 8-bit owners can enjoy playing 
one of the popular adventures that ST users 
are experiencing. Phantasle, a multiple- 
character role-playing, graphic adventure, in- 
volves sorcery, with trolls and other mysti- 
cal individuals. You and your compatriots, be 
they elves, ores, Uzard men or gnomes, search 
the land for the Nine Rings necessary to de- 
stroy the evil Gelnor. Playing time is said to 
be thirty to sixty hours. 

Retail is $39.95; 48K Disk. Strategic Simu- 
lations, Inc., 1046 N. Rengstorff Ave. , Moun- 
tain View, CA 94043 — (415) 964-1353. 

CIRCLE *139 ON READER SERVICE CARD 



NEW DRIVE? 

Latest news reports say the 3V2-inch floppy disk drive for the 8-bit line has been scrapped 
in favor of a new 5V4. This drive is said to be double-density/double-sided, and the A-DOS, 
previously developed for 3V2-inch drives is now being rewritten for the new drive. The new 
floppy drive, we're told, is intended to be fully compatible with the 810 and 1050, as well as 
other drives, such as the Rana, Track, etc. 

And what was the reason for the change? Many manufacturers of software for the Atari lines 
were not wild about producing products for the 3y2-inch format; they felt such production was 
too expensive to be cost effective. Atari abided by the software developers' requests and re- 
mained with the 5y4-inch setup. Prices, availability and further information will be printed 
in these pages as the information is released. 
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ANALOG COMPUTING 



48K Cassette or Disk 




/•^ 




Re-create the haunting tones 
of the Japanese bamboo pipe 
on your Atari. 



MUSIC FEATURE 




Shakuhachi 
Keyboard 



by Albert Baggetta 



One of the great powers of the home computer is its abil- 
ity to simulate. In its "eye," it can graphically simulate ob- 
jects; in its "brain," it can logically simulate situations; 
in its "ear," it can simulate the real world of sound; and 
through its "mouth," it can reproduce this myriad of 
sounds, 

As a musician, I'm fascinated with the Atari's ability 
to imitate musical sounds. Whenever I hear a unique one, 
I turn to my Atari and ask it to reproduce the sound. With 
some help from me, it usually comes through. First I have 
to find out where the sound is coming from and how it's 
being reproduced. Is it a "plucked" sound? Does it fade 
away quickly or slowly? Is the effect made up of more than 
one sound? After I decide on these and other ideas, I try 
to make my good old 8-bit Atari put them all together to 
create a sound simulation. 

Recently I became intrigued with the musical sound- 
track from The Karate Kid, especially that haunting flute 
sound produced by the Japanese Sho or the Shakuhachi 
(bamboo pipe]. The soim^d is so familiar to us westerners, 
from the movies and television, that it seemed a natural 
for computer simulation. After much experimentation, I 
created the accompanying program, Shakuhachi Key- 
board. 

I decided that the sound I was looking for has two 
characteristics. The musical tone is accompanied by an 
aspiration (a blowing of air). Because of this, the volume 
of the tone goes from soft to loud to instant quiet (when 
the aspiration stops). As you can see, if you know any- 
thing about the Atari's technique for reproducing sound. 



I was going to need some high-pitched "white noise," 
along with a musical tone that fades in, up to a high point 
of volume. This effect is created by the short loops and 
sound statements in Lines 300 to 310 of the program. 

I needed some notes, too. A little research revealed that 
the Japanese do not use our western scales for music, but 
they do use some of the notes. A typical pattern follows: 
Note Pitch 

G 162 

A 144 

C 121 

D 108 

E 96 

G 81 

My program selects from this combination of notes ran- 
domly, to create an ongoing Japanese melody (not too dif- 
ficult for the western ear to accept) . Random delays also 
help to simulate timing and originality in the creative 
process. (Who said a computer can't be an artist?) 

I used a split screen in the graphics mode. The top 
of the screen displays the program title with a couple of 
wispy birds drifting against a sminy sky. To make the pro- 
gram somewfhat informational, the name of each note is 
displayed at the bottom of the screen. 

Type in the program and experiment with it. Maybe you 
can even create a more elaborate music editor, one that 
will allow users to generate their own tunes for the com- 
puter to play. Then we can put on our kimonos, sit back 
with a cup of tea and enjoy the oriental sounds of the syn- 
thesized Shakuhachi. tl 

(Listing begins on next page. J 
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3, Shakuhachi Keyboard 



continued 



Albert Baggetta has been a high school English teacher 
for twenty years. He's been interested in BASIC program- 
ming for about five years, and likes to experiment with 
programs relating to graphics, music and the English lan- 
guage. 



The two-letter checksum code preceding the Une 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47. 



Listing 1. 
BASIC listing. 

ifaE 10 REM MKXKXKKKMKKKKlCMKKKKlOdCKKKMlCKK 
KH 20 REM » SHAKUHaCHI KEYBOARD * 
FU 30 REM » » 

LX 40 REM * BY A . BAGGETTA # 

KN 50 REM » ATARI HOME COMPUTERS » 
H5 60 REM » tCJ1987 * 

AK 70 REM KKKKMKKXKMKMMICKKKKKKKKKKKKKKK 
PE 80 REM SAVE "D : JAPANFLT . BAS 
WM 90 GRAPHICS OlPOKE 70S,4:PDKE 752,1!? 
, tt6;CHR$C125) :SETC0LDR 1, 0, : 5ETC0L0R 2 
W ,e,8:SETC0L0R 4,0,0 
W: 100 ? «&:? tt6:? »6:? ttO 
Aii 110 ? tt6;" ";CHR$(8};CHR$Cie} 

FK 120 ? tt5j" ■■;CHR$(8};CHR$C7);CHR 

$C13e} ;CHR$(138) 
AU 130 ? «6;" ■■;CHR$C136J 
MB 140 ? »6;" Shakuhachi Keyboard" 
MT 150 ? tt6:? tt6;" 

'■;CHRSC8};CHR$flOJ 
IK 160 ? »6,-" ";CHRS 

(81 ; CHR$ C71 ; CHR$ C136) ; CHR$ (1381 
UD 170 ? tt6j" "JCHRS 

(1361 
NG 180 POSITION 0,18:? tt6;" JA 

PANESE SCALE" 
NZ 190 POSITION 0,19:? «6J" aaaa 

AAAAAAAAAAAAAAll 

TI 200 FOR 1=0 TO 15 

XO 210 SETCOLOR 2, 1, I : SETCOLOR 4,1,I:SETC 

OLOR 1,1,15-I:HEXT I 
NZ 220 X=INT(RND(01)(61+1 

LT 230 ON K GOTO 240,250,260,270,280,290 
5Y 240 P=162;? "G ";:G0T0 300 
PW 250 P=144:? "A ";:GOTO 300 
PJ 260 P=121:? "C ";:GOTO 300 
RU 270 P=108:? "D ";:GOTO 300 
TF 280 P=96:? "E ";:G0T0 300 
SM 290 P=81:? "G ";:G0T0 300 
MH 300 FOR D=e TO 4 STEP 0.3:SOUND e,P,10 

,D:SOUND l,l,8,l:NEXT D 
FK 310 SOUND 0, P, 10, D : SOUND 1,1,8,1 
QB 320 FOR E=l TO INT (RND (01«3501 : NEXT E 
CV 330 SOUND 1,0,0,0:S0UND 0,0,0,e:REM RE 

MOUE REM FOR DELAY BETMEEN NOTES AB=1a 

1 
MM 340 GOTO 220 



f= COMPUTER CREfiTIOHS =i 

YOUR ATDRI 8-BIT SUPPORT CENTER 



ACCESS 




Leaderboard Golf 


26 


Tournament Disk 


14 


Triple Pack 


14 


ACCOLADE 




Hardball 


20 


Fight Night 


20 


ARTWORX 




Bridge 4.0 


16 


Compubr Idge 


16 


Strip Poker 


20 


Female Disk 


14 


ATARI 




Atarlwrlter Plus 


39 


Proofreader 


14 


Star Raiders II 


14 


Silent Butler 


19 


ATARI HARDWARE 




130XE Computer 


139 


1050 Disk Drive 


139 


301 Modem 


49 


BATTERIES INCLUDED 




Paperclip w/Spellpak 


39 


Homepak 


15 


B-Graph 


26 


BRODERBUND 




Printshop 


29 


Prlntshop Companion 


26 


Printshop Graph. 




Library 1,2,3 


17 


Syncalc (130XE) 


33 


Syncalc (800) 


19 


syn£lle+ 


33 


syncalc Template 


15 


Syntrend 


25 


DAT AS OFT 




Alternate Reality 


18 


Mind Pursuit 


12 


Mercenary 


20 


Never Ending Story 


12 


Crosscheck 


20 


Theatre Europe 


22 


221 B Baker St. 


20 


Gunsllnger 


20 


ELECTRONIC ARTB 




Golden Oldies 


20 


Lords of conquest 


22 


Starfleet I 


32 


Chessmaster 2000 


28 


Archon II: Adept 


24 


Financial Cookbook 


28 


Racing Destruct.Set 


11 


plnball Construction 


11 


Seven Cities of Gold 


11 


Super Boulder Dash 


11 


Ultima III 


36 


Ultima IV 


42 


Dr. J & Larry Bird - 




one on One 


11 


Moviemaker 


24 



HAPPY 




Happy Enhancement 


129 


I CD 




Printer Connection 


39 


U.S.Doubler w/o 




Spartados 


29 


U.S. Doubler w/ 




Spartados 


49 


Rambo X/L 


29 


Sparta Dos Con- 




struction Set 


29 


R-Tlme 8 


49 


P:R:Connection 


65 


INFOCOM Call 


KXAN 




Kyan Pascal 


49 


System Utilities 


34 


Atari Advance 


34 


MICROLEAGUE 




Baseball 


26 


General Manager 


26 


Team Player Disk 


14 


MICROPROSE 




Silent Service 


27 


F-15 Strike Eagle 


23 


Kennedy Approach 


23 


Conflict in Vietnam 


26 


Crusade in Europe 


26 


Top Gunner 


17 


DBS 




Action 


49 


Action Tool Kit 


19 


Basic XL 


38 


Basic XL Tool Kit 


19 


DOS XL 


19 


Basic XE 


49 


Mac 65 


49 


Mac 65 Tool Kit 


19 


SUBLOGIC 




Flight Simulator 11 


37 


Scenery-San Fran. 


15 


Scenery-Japan 


15 


Scenery #1 thru #6 


15 


SUPRA 




MPP 1150 


39 


Microprint 


29 


X-LENT 




Typesetter 


23 


Rubber Stamp 


19 


Page Designer 


19 


Megafont 11 


17 


P.S. Interface 


19 


First X-lent Word 




Processor 


19 


Miniature Golf + 


19 



CABLES 

P:R:Connect/Prlnter 15 

P:R:Connect/Modem 15 

Interex #5/Monltor 7 

Null Modem ST/S-Bit 19 



To order call TOLL FREE 

1-800-824-7506 



CIRDEH LINE ONLY 



B P.O. BOX 493 - DAYTON, OHIO 45459 fej 

For information, order inquiries, or lor Ohio orders (513) 435-€3CQ 
Older Lines Open 9 am to 9pm MonFn 10 am lo4 pm Sal (Eastern Standard Time) MimmumSlS per 
order COD (addSSOO] Please specify computer system Call to!lfreenuml)eriovenlypricesand availability 
of product Prices and availability are subject to change without notice We sbip C D to Continental U S 
addresses only' Please include J^stiipping on all Hardware orders (mm $4 00) Software and accessories add 
$3 00 stripping and tiandljng in Contmental U S Actual freight will be charged outside U S to include Canada 
Alaska, Hawaii, Puerto Rico and APO Ohio residents add 6% sales lax Canadian orders 5% shipping (Mm 
55 00) All other foreign orders, please add 15% shipping, (Mm SIO) For immediale delivery send cashier's 
check, money order or direct Ijank transfers Personal and company cliecks allow 3 weeks to cleai School 
purchase orders welcome Due to our low prices, all sales are final NO CREDHS AU delectwe returns must 
have a return authorization number Please call (51 3) 4 35 -6866 tooblam an RA# or your lelurn will nnl be 
accepted lor replacement or repair 
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y/ 



Etude 

in C# Minor 



A sound and graphics 

practical application in ST BASIC. 



by David Lindsley 



Ssij 



This article and the program accompanying it will help 
you show off the sound and graphics capabilities of your 
T BASIC. The tune is one I wrote a few years ago, demon- 
strating the combination of all three voices on the ST. In 
addition, I've included a picture at the beginning, to show^ 
that more can be done with BASIC than drawing circles 
and squares. 

The Atari ST is not limited to the three voices that come 
with the system. A synthesizer and software can produce 
up to fifteen soxinds by plugging into the built-in MIDI 
ports, thus making the ST very expandable. But even with- 
out added peripherals, you can still obtain impressive 
sound virith your ST. 

ST BASIC has two commands that will allow you to ac- 
cess the three-voice sound chip in your ST. They are 
SOUND and WAVE. With these, you can create just about 
any sound or noise you want. 

First, let's take a look at the SOUND statement: 

SOUND voice, vol UMe, note, octave, duration 

There are three voices, fifteen volume settings, twelve 
notes, and eight octaves, along with an infinite number 
of duration settings — more than enough to create any type 
of sound or noise. The notes C through B are represented 
by the numbers 1 through 12. Middle C on the piano 
would be OCTAVE 4, NOTE 1. Let's go ahead and play 
that note, by typing in the following: 

10 sound 1,15,1,4,50 
20 sound 1,0,0,0,0 

When this is run, you will hear the note sounded for 
one second. (Don't forget to turn up the volume on your 
monitor!) The first number in Line 10, 1, is the voice that 



we're using; 15 is the volume level (maximum); 1 is the 
note C; 4 is the octave; and 50 is the duration (a value of 
100 would be 2 seconds). 

Notice that on Line 20 it is necessary to shut off the 
sound by substituting Os for the values. Now let's put a 
few notes together and make a little song. Here's a tune 
that has only eight notes: 

C,E,G,F,E,F,D,E 

Translated into numbers it looks like: 

1,5,8,6,5,6,3,5 

Now we're able to plug these numbers into the SOUND 

statement: 

10 sound 1,15,1,5,15 

20 sound 1,15,5,5,15 

30 sound 1,15,8,5,15 

40 sound 1,15,6,5,15 

. . . and so on, but that's a lot of work. Why not let the com- 
puter do all the work for you (that's why you bought it, 
right)? Using a FOR/NEXT loop and a READ statement 
will make our tune look like this: 

10 for i=l to 8:read x 
20 sound l,15,x,5,15 
30 next 

40 data 1,5,8,6,5,6,3,5 
50 restore: goto lO 
(Press CTRL-C to end the song) 

Okay: so far so good, but I said there were three voices 
available. Go back and edit the tune, changing the SOUND 
voice number to 2 or 3. What's this? Nothing happened! 
So where are the other two voices? 

Enter the WAVE statement. 

In order to get more than one voice, we need to use the 
WAVE statement. This is how it looks: 
MAUE enab le, envelope, Shape, per iod,dela!^ 

There are thirty-one different enable settings, sixteen 
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envelope settings, ten shapes and thirty-one period set- 
tings. The delay setting should always be 0, otherwise 
there will be an audible separation before the next sound. 
The WAVE statement is explained in greater detail in oth- 
er books and pubhcations— for example, the May 1986 is- 
sue of ST-Log, in ST Sound Waves. WAVE is used to com- 
bine voices and to modify the type of sound or noise 
created. 

Let's make some changes to our tune: 

5 wave 3,3,13,15,8 

10 for i=l to 8:read x,y 

28 sound l,l5,x,5,e 

25 sound 2,14,^,4,15 

30 next 

48 data 1,8,5,5,8,8,5,5 

45 data 5,8,6,6,3,0,5,8 

50 restore! goto 18 

(Press CTRL-C to end the song) 

Now we have two voices playing at the same time. No- 
tice that the duration value for sound 1 is now 0, and the 
value of 15 has moved down to sormd 2. This is how you 
get the voices to overlap. The last voice controls the du- 
ration. All other voices are always set to 0. 

In the next example, both soimd 1 and sound 2 have 
a duration value of 0, while somid 3 is assigned the duty 
of timing the duration. 

Let's get all three voices working together, and complete 
our little tune by adding a bass riff. This time we'll give 
sound 3 the freedom to move up or down in octaves, by 
assigning value to the variable oct (of course, this could 
be done with any or all voices]. 



c=3: while c>0 
wave 7,7,13,15,8 
for i=l to 8:read x,y,z,oct 
sound l,14,x,5,8 
sound 2, 14, y, 4,0 
sound 3, 14, z, oct, 15 
next:c=c-l 

data 1,8,1,3,5,5,8,3,8,0,1, 
3,6,5,8,3 

98 data 5,8,6,2,6,1,18,3,3,0, 
8,2,5,3,12,3 
100 restore: wend 

sound 1,14,1,5,0 
sound 2,14,5,4,0 
sound 3,14,1,3,40 
sound 1,0,0,0,0 
sound 2,8,8,8,8 
sound 3,8,8,8,8 



18 
20 
38 
40 
50 
60 
70 
88 



110 

128 
130 
148 
158 
168 



Notice the use of the WHILE/WEND loop to make the 
music repeat three times before the ending is played at 
Line 110. Lines 140 through 160 turn the sound off. 

Transposing sheet music. 

The sidebar accompanying this article shows a measure 
of music as written for the piano. The first thing we need 
to do is assign the numeric values for each note from the 
table. We also need to specify which octave each note is 
in. Notice that the duration values are not expressed for 
sound 1 and sound 2, because sound 3 determines the du- 
ration value. For this example, let's make a quarter note 
equal 30 and an eighth note equal 15. Now these values 
are ready to be used in the data statements at the end of 
your program. Use ETUDE. BAS as an example format for 
your music. 



Piano to computer. 

As written on piano: 



^^ 



r 



^ 



m 



Substitute numbers for notes: 



NOTE 


VALUE 


C 


1 


c: 


2 


D 


3 


DJ 


4 


E 


5 


F 


6 


F: 


7 


G 


8 


Q: 


9 


A 


10 


A: 


11 


B 


12 



i;? 10 1 


i 


3 


tz 


a 




5 


3 

12 - 


5 


n 



10 


1 


3 


12 


8 


6 


5 


3 


5 




6 




12 




8 



10,4 


1,5 


3,5 


12,4 


8,4 


6,4 


5,4 


3,4 


5,4 




6,2 




12,2 




8,2 



Or more simply stated 

SOUND 1 
SOUND 2 
SOUND 3 

Add octave values 
SOUND 1 
SOUND 2 
SOUND 3 

Fill blanks with preceding note and indicate 
duration value on somid 3 only: 

SOUND 1 

SOUND 2 

SOUND 3 

Enter numbers by columns into DATA statement; 

data 18,4,6,4,6,2,38,1,5,5,4,6,2,30 
data 3,5,3,4,12,2,30,12,4,5,4,12,2,15 
data 8,4,5,4,8,2,15 

Precede data with the WAVE and SOUND 

statements as shown below: 

18 wave 7,7,13,1288,9 

28 for i=l to 5 '5 is nr of notes 

30 read nl,x,n2,!;,n3,z,d 

40 sound l,l4,nl,x,e 

50 sound 2,l4,n2,!;,e, 

60 sound 3,l5,n3,z,d 

70 next 

80 restore:goto 28 

98 data 18,4,6,4,6,2,38,1,5,5,4,6,2,30 

188 data 3,5,3,4,12,2,38,12,4,5,4, 

12 2 15 

120 data 8,4,5,4,8,2,15 



10,4 


1,5 


3,5 


12,4 


8,4 


6,4 


5,4 


3,4 


5,4 


5,4 


6,2,30 


6,2,30 


12,2,30 


12,2,15 


8,2,15 



The graphics. 

The entire graphics section of this demonstration was 
created using the VDISYS commands. They are extreme- 
ly fast. (For more information on using these and other 
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\TDISYS commands, see VDI Sampler in the June 1986 is- 
sue of ST-Log). 

The mouse is turned off in Line 210, to prevent inter- 
ference as the program draws and plays the music, and 
is restored just prior to returning to the command win- 
dow at the end of the program. Notice the absence of a 
CLEARW 2:FULLW 2 command at the beginning of the 
program. This is because the VDI calls are able to cover 
the entire screen. 

Running the program. 

Type in ETUDE. BAS and save a copy to disk before you 
run it. Make sure your ST is in low resolution if you want 
to see the graphics portion, but the music will play in any 
resolution. H 

For years, David LindsJey wonted a computer. A year 
ago, he got an Atari 520ST — and Joves it. Despite recent 
critisism, he finds ST BASIC powerful ond easy to use. es- 
pecially for novices. He enjoys creating pictures with DE- 
GAS and Neo-Chrome (from which Etude was derived). 
By day, he is an electrical designer in Phoenix, Arizona. 

Listing 1. 
ST BASIC listing. 

le 'ETUDE IN Ctt MINOR b» David Lindsle 

y 

28 diM px!/(22) ,thC26] :ps=peek(S!;stab) 

38 if ps=l or ps=2 then 48 else 68 

40 clearw z:fullw 2:gotoxy i,l8!?"You 

Must be in LOW res. to see picture" 

50 wave 7,7,13,15,8:restore MUSICDATA: 

gosub MU5IC:end 

68 for i=8 to 15:read ci, red, green, blu 

e:gosub SETCOLOR:next 

70 data 0,857,714,714,1,8,0,0,2,1088,8 

,8,3,428,571,285 

88 data 4,714,714,571,5,571,571,571,6, 

285,285,285 

90 data 7,857,857,714,8,428,428,428,9, 

571,857,1888 

108 data 18,571,285,571,11,714,571,857 

,12,714,857,571 

118 data 13,142,142,857,14,1080,1000,1 

808,15,571,428,714 

128 poke &hf ffce2,&h8812'turn Off MOUS 

e 

138 for i=l to 9:gosub D05HfiPE:next 

148 data 9,4,8,0,319,8,319,72,0,72,12, 

4,8,73,319,73,319,199,8,199 

150 data 11,4,0,72,88,50,288,68,319,72 

168 data 15,7,8,72,8,68,25,58,48,55,55 

,68,60,65,110,72 

170 data 15,7,288,72,238,68,258,54,265 

,58,295,48,319,45,319,72 

188 data 18,6,8,72,25,67,140,72,288,55 

,319,65,319,72 

198 sa=3488 : ea=160O : cx=260 : c!!;=169 : radx 

=35 : rady=15 : hand 1 e=6 

200 gosub ELLARC 

218 data 3,4,109,147,230,147,255,190,9 

3,190 

220 data 3,4,60,160,94,160,75,185,32,1 

85 

238 data 3,6,288,174,299,174,385,178,3 

15 , 187 , 293 , 187 , 278 , 176 

240 color l,l,l:for i=l to 18:read x,y 

■■gosub PERBOTTOMinext 

258 side=8:for i=l to 5:read x,y;gosub 

PER5IDE:next 
260 restore LiNEDflTA 
270 side =319:for i=l to 5:read x,y:go 



sub PER5IDE:next 

280 data 6,15,24,33,42,96,105,114,123, 

132 

290 data 186,195,284,213,222,276,285,2 

94,383,312 

360 LINEDATA: 

310 data 106,109,113,118,124,144,149,1 

55,162,170 

320 for i=l to 13:gosub D0SHAPE:next 

330 data 4,4,99,137,225,137,245,176,83 

,176 

348 data 4,8,113,62,206,62,209,65,209, 

130 

350 data 205,134,113,134,110,131,110,6 

5 

360 data 4,4,50,141,84,141,65,168,22,1 

60 

370 data 4,6,268,156,270,154,289,154,2 

95,158,384,172,278,172 

388 data 7,6,278,154,274,158,288,169,2 

77,173,268,164,268,156 

398 data 5,4,23,161,64,161,64,174,23,1 

74 

488 data 5,8,288,170,302,170,303,171,3 

03,172 

410 data 382,173,288,173,279,172,279,1 

71 

428 data 8,4,113,65,287,65,207,129,113 

,129 

430 data 8,4,65,168,84,141,84,158,65,1 

75 

448 data 6,8,121,71,196,71,198,72,198, 

120,196,121,121,121,120,120 

450 data 120,72,6,8,83,176,245,176,246 

,177,245,178 

460 data 245,179,83,179,82,178,82,177 

470 data 14,4,124,75,193,75,193,116,12 

4,116 

488 data 9,4,128,78,189,78,189,113,128 

,113 

490 color l,7,7:gosub DOLINE 

588 data 2,288,169,301,169 

510 color l,5,5:gosub D0LlNE:gosub DDL 

INE 

520 data 2,274,158,294,158,2,288,154,2 

85,158 

530 color l,8,8:gosub D0LlNE:gosub DOL 

INE 

540 data 2,93,153,233,153,2,23,160,64, 

160 

550 color l,14,14:gosub DOLINE 

560 data 3,269,156,273,158,279,169 

570 color 1,1,1: for i=l to 60:gosub DO 

LlNE:next 

588 data 9,113,63,286,63,288,65,208,12 

8,206,130 

590 data 113,130,111,128,111,65,113,63 

600 data 2,113,134,205,134,2,186,131,1 

86,133,2,195,131,195,133 

618 data 5,99,137,225,137,245,176,83,1 

76,99,137 

628 data 2,96,147,229,147,2,93,154,233 

,154,2,92,155,234,155 

638 data 9,84,141,58,141,22,160,22,175 

640 data 65,175,84,150,84,141,65,160,6 

5,175 

658 data 2,96,158,178,158,2,183,158,19 

9,158,2,284,158,238,158 

668 data 2,95,161,178,161,2,183,161,28 

8,161,2,204,161,231,161 

670 data 2,94,164,168,164,2,174,164,17 

8,164,2,183,164,281,164 

680 data 2,206,164,233,164,2,93,167,17 

8,167,2,184,167,281,167 

698 data 2,287,167,235,167,2,93,170,16 

9,170,2,208,170,230,170 

700 data 2,97,173,165,173,2,97,174,165 

,174,2,209,173,236,173 
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719 data 2,278,174,298,174,7,28,179,56 

,179,56,169,28,169,28,166 

729 data 56,166,56,169,5,42,164,53,164 

,45,172,34,172,42,164 

739 data 2,183,168,281,168,2,298,174,2 

36,174,2,35,193,15,193 

749 data 2,45,139,25,138,2,46,182,21,1 
82,2,29,142,9,142 

750 data 2,58,119,78,119,2,83,196,68,1 
06,2,18,113,8,113 

769 data 2,98,91,75,91,2,58,96,68,96 

778 data 2,88,138,93,138,2,95,129,84,1 

29 

788 data 2,116,187,141,187,2,218,183,1 

85,183,2,274,197,297,197 

790 data 2,278,173,258,173,2,245,167,2 

65,167,2,248,147,231,147 

808 data 2,215,135,238,135,2,384,159,3 

19,159,2,299,135,279,135 

810 data 2,258,129,278,129,2,258,118,2 

35,118 

820 data 2,305,119,319,119,2,308,103,2 

85,103,2,284,116,299,116 

830 data 2,255,183,278,103,2,240,97,25 

5,97,2,222,105,210,105 

840 color 1,5,5: for i=l to 3:sDsub DOL 

INErnext 

850 data 2,114,64,205,64,2,112,66,112, 

128 

860 data 4,196,74,196,118,197,119,197, 

73 

870 color 1,7,7: for i=l to 19:sosub DO 

LINE: next 

880 sa=3408 : ea=1600 : cx=26e : cy=149 : radx 

=35 : rady=15 : handl e=6 

890 gosub ELLARC 

900 data 4,124,119,194,119,195,120,123 

,120 

910 data 4,110,131,110,65,113,62,286,6 

2 

920 data 2,97,146,229,146,2,96,152,232 

,152,2,96,160,177,160 

930 data 2,183,168,198,168,2,284,168,2 

30,168,2,95,163,167,163 

940 data 2,183,163,199,163,2,206,163,2 

32,163,2,94,166,177,166 

958 data 2,184,166,288,166,2,287,166,2 

34,166,2,93,169,168,169 

960 data 2,208,169,228,169,2,98,172,16 

4,172,2,209,172,236,172 

970 data 2,84,175,243,175,2,25,159,65, 

159 

980 color l,8,8:gDSUb DOLINE 

990 data 4,121,73,122,73,123,74,122,74 

1000 color l,6,6:!iil=158:y2=l6l:for i=l 

to 26: read x: gosub KEYS: next 
1010 !^l=161:!^2=164:for i=l to 24:read 
x: gosub KEYS: next 

1020 yl=l64:!/2=l67:for i=l to 24: read 
x:gosub KEYS:next 

1030 yl=167:y2=170:for i=l to 18: read 
x:gosub KEYS:next 

1040 yl=l70:y2=l73:for i=l to 8:read x 
: gosub KEYS: next 

1050 gosub DOLINE:gosub D0LZNE:x=102:y 
lrl45:y2=137 

1060 for x=102 to 204 step 6: gosub DIA 
GONAL:next 
1070 x=40:yl=149:y2=143:for x=40 to 65 

step 5:gosub DIAGONAL:next 
1080 sa=3400 : ea=l688 : cx=268 : c y=l58 : rad 
x=34 : rady=15 : hand le=6 
1090 gosub ELLARC 

1100 data 95,100,105,118,115,128,125,1 
30 

1118 data 135,148,145,158,155,168,165, 
170 
1120 data 178,182,187,193,199,203,210, 



217,224,230 

1130 data 94,102,108,114,120,126,132,1 

38,144,150,156,162,168 

1140 data 173,178,182,188,194,200,205, 

212,219,226,231 

1150 data 93,183,189,115,122,127,133 

1168 data 138,143,148,153,158,163,173, 

178 

1170 data 183,188,195,201,206,214,228, 

227 233 

1188 data 92,187,114,128,127,131,137,1 

42,147 

1198 data 152,157,162,169,287,215,221, 

228,235 

1288 data 97,185,158,165,288,222,238,2 

36 

1218 data 6,95,153,95,152,97,158,185,1 

56,183,152,183,153 

1228 data 11,268,157,272,168,278,170,2 

78,174,268,164 

1230 data 268,156,270,154,289,154,295, 

158,304,172,278,172 

1240 wave 7,7,13,15,e:sound 1,15,2,3,8 

1250 color 1,2,2: for i=l to 14:gosub D 

0LINE:next 

1260 data 2,54,173,55,172,2,183,132,18 

3,132,2,92,174,94,174 

1270 data 2,158,99,150,180,2,165,99,16 

5,100,2,152,95,152,96 

1280 data 2,163,95,163,96,2,145,96,149 

,92,2,167,103,167,103 

1290 data 2,146,105,148,103,2,169,105, 

169,105,2,151,86,151,89 

1300 data 2,164,86,164,89,2,166,92,170 

,96 

1310 color 1,1,1: for i=l to 2:read ex, 

cy,radx,rady 

1328 handle=5:gosub ELLARC: next: sound 

1,15,9,3,8 

1338 color l,l,l:for i=l to 17:read ex 

,cy,radx,rady 

1348 gosub ELLARC: next: sound 1,15,2,3, 



1358 color 1,1,1: for i=l to 9:read ex, 

cy,radx,rady 

1368 gosub ELLARC: next 

1378 data 46,185,5,3,115,185,5,3,28,14 

5,5,3,45,132,4,2 

1380 data 80,137,4,2,95,130,3,2,18,115 

,4,3,35,105,3,2,50,97,3,2 

1398 data 98,92,2,1,58,117,3,2,83,187, 

3,2,218,185,5,3 

1488 data 275,195,5,3,270,175,4,2,245, 

165,3,2,248,149,3,2 

1418 data 215,134,3,2,384,157,5,3,299, 

137,4,2,258,128,3,2 

1428 data 258,116,3,2,222,186,3,2,240, 

96,3,2 

1430 data 255,102,3,2,284,115,3,2,300, 

104,4,2,385,117,4,2 

1448 WM=2: gosub HMODE:text$="E T U D E 

■ I 

1458 tc=13 : th=24 : te=5 : cx=85 : cy=24 : gosu 

b DOTEXT 

1468 text$="I N CO M X N R" 

1478 sound l,15,9,3,8:te=4:cx=27:cy=58 

:gosub DOTEXT 

1480 text$="by David Lindsley" 

1498 th=8:te=32:cx=68:cy=197:gosub DOT 

EXT 

1500 text$=chrScl4)+chrSC15J 

1510 tc=2:th=26:cx=142:cy=106:gosub DO 

TEXT 

1520 rc=l:tc=l:th=6:te=8:gosub DOTEXT: 

gosub MUSIC 

1538 'clear picture and put header bac 

k 

1548 gosub D0SHAPE:cx=2e:cy=8 
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1550 textS="Desk File Run Edit Deb 

ug":gDSUb DOTEXT 

1566 c i=0 : red=ieee : green=ieee : b lue=iee 

e:gosub SETCOLOR 

1570 POKE &hfffce2,&hoe8:fullw 2:end't 

urn Mouse on 

1580 D05HAPE: 

1590 read c:color l,c,c,8,2 

1600 read n:for x=0 tofn»2J-l:read pxy 

txi :next x 

1610 poke contrl,9:pDke contrlt2,n 'nr 
of sides 

1620 poke contrl+6,0 

1630 for x=0 to Cn»2J-l 'coordinate 

s 

1640 poke ptsin+(x*2J ,pxycx) 

1650 next xrvdisysCl} :return 

1660 DOLINE: 

1670 read n:for x=0 to(n»2J-l:read pxy 

Cxi :next x 

1680 poke contrl,6:poke contrH-2,n 'nr 
of X y pairs 

1590 poke contrl+6,0 

1700 for x=0 to tn»2J-l 'coordinate 

s 

1710 poke ptsin+(x»2},pxyCxl 

1720 next x:vdisys(l) :return 

1730 DOTEXT! 

1740 poke contrl j22:poke contrl+2,0 't 

ext color 

1750 poke contrl+eflipoke intin,tc 'c 

olor index 

1760 VdisysCl} 

1770 poke contrl, I06:poke contrl+2,0't 

ext effect 

1780 poke contrl+6,l:poke intin,te 'e 

ffect index 

1790 vdisys(l) 

1800 poke contrl, 12:poke contrl+2,1 't 

ext height 

1810 poke contrl+6,l:poke ptsin,0 
1820 poke ptsin+2,th 'text height 
in pixels 

1830 VdisysCl) 

1840 if rc=l then rc=0!return 

1850 poke contrl, 8:poke contrl't2,l 'g 

raphic text 

I860 poke contrl+6,lenCtext$} 's 

tring length 

1870 poke ptsin,cx:poke ptsin+2,cy 'x 

y coords 

1880 for i=0 to lenCtext5)-l 

1890 poke intin+Ci»2},ascCMid$Ctext$,i 

+1,1JJ 

1900 next i .'vdisysClJ :return 

1910 MMODE: 

1920 poke contrl, 32:poke contrl+2,0 'w 

riting node 

1930 poke contrl+6,l:poke intin,WM 'n 

ode index 

1940 VdisysCl) :return 

1950 PERBOTTOM! 'b 

otton lines 

I960 poke contrl, 6:poke contrl+2,3 'p 

olyline 

1970 poke contrl+6,e:poke ptsin,x 'x 

coordinate 
1980 poke ptsin+2,l99:poke ptsin+4,150 
1990 poke ptsin+6,72!poke ptsin+8,y 'y 

coordinate 
2000 poke ptsin+10, 199: VdisysCl) -.retur 
n 

2010 PER5IDE: 'S 

ide lines 

2020 poke contrl, 6:poke contrl+2,3 'p 
olyline 

2030 poke contrl+6,e:poke ptsin,side' 
2040 poke ptsin+2,x:poke ptsin+4,150'x 



coordinate 
2050 poke ptsin+6,72:poke ptsin+8,side 
2068 poke ptsin+ie,y:vdisysCl} .-return 
2070 KEYS: 

2080 poke contrl, 6:poke contrl+2,2 'p 
olyline 

2090 poke contrl+6,0 

2100 poke ptsin,x:poke ptsin+2,yl 'f 
irst xy 

2110 poke ptsin+4,x:poke ptsin+6,y2 's 
econd xy 

2120 VdisysCl) :return 
2130 DIAGONaL: 

2140 poke contrl, 6:poke contrl+2,2 'p 
olyline 

2150 poke contrl+6,0 

2160 poke ptsin,x:poke ptsin+2,yl 'x 
y coords 

2170 poke ptsin+4,x+17:poke ptsin+5,y2 
2180 VdisysCl) : return 
2190 ELLARC: 

2200 poke contrl, ll:poke contrl+2,2 'e 
lliptical arc 

2210 poke contrl+6,2:poke contrl+10,ha 
ndle 

2220 poke intin,sa:poke intin+2,ea 's 
tart, end angles 

2230 poke ptsin,cx:poke ptsin+2,cy 'x 
y of center 

2240 poke ptsin+4,radx 'r 

adius X axis 

2250 poke ptsin+6,rady 'r 

adius y axis 
2260 VdisysCl) : return 
2270 SETCOLOR: 

2280 poke contrl, 14:poke contrl+2,0 's 
et color 

2290 poke contrl+6,4:poke intin,ci "c 
olor index 

2300 poke intin+2,red 
2310 poke intin+4, green 
2320 poke intin+6,blue 
2330 VdisysCl) :return 
2340 MUSIC: 
2350 repeat=2 

2360 for r=l to 54;read nl,a,n2,b,n3,c 
,d:sound 1,14, nl, a, 

2370 sound 2,15,n2,b,e:sound 3,13,n3,c 
,d:next 

2380 MUSICDATA: 

2390 data 9,4,2,3,0,1,20,2,4,2,3,0,1,2 
0,5,4,9,3,9,5,10 

2400 data 7,4,9,3,4,5,10,9,4,9,3,5,5,1 
0,9,4,5,2,2,5,10 

2410 data 7,4,7,2,7,5,20,2,4,7,2,7,5,2 
0,9,4,9,3,2,5,20 

2420 data 7,4,9,3,2,5,10,5,4,9,3,2,5,1 
0,9,4,2,3,0,1,20 

2430 data 2,4,2,3,9,2,20,5,4,9,3,9,5,1 
0,7,4,9,3,7,5,10 

2440 data 9,4,9,3,5,5,10,9,4,5,2,2,5,1 
0,7,4,7,2,7,5,20 

2450 data 2,4,7,2,7,5,20,9,4,9,3,2,5,2 
0,7,4,9,3,2,5,18 

2460 data 5,4,9,3,2,5,10,10,4,10,3,8,5 
,20,2,4,10,3,0,5,20 

2470 data 5,4,5,3,10,5,9,2,4,5,3,9,5,9 
,5,4,5,3,7,5,9 

2480 data 7,4,5,3,10,5,9,9,4,9,3,9,5,2 
0,12,3,9,4,9,5,20 

2490 data 9,4,5,3,12,4,10,9,4,4,3,12,4 
,10,9,4,2,3,12,4,10 

2500 data 9,4,5,3,12,4,10,7,4,2,3,7,4, 
20,12,3,7,3,10,5,20 

2510 data 10,4,12,3,12,5,10,9,4,12,3,1 
2,5,10,7,4,12,3,12,5,10 

2520 data 4,4,4,3,12,5,10,9,4,5,3,5,5, 
10,10,4,5,3,5,5,10 
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// Etude 



continued 



2530 data 9,4,5,3,5,5,ie,ie,4fl8f3,5,5 

,10,12,4,12,2,5,5,19 

2540 data 10,4,12,2,5,5,10,9,4,12,2,5, 

5,10,5,4,5,3,5,5,10 

2550 data 7,4,7,3,7,5,20,2,4,7,3,7,5,2 

8,7|4,5,3,7,5,10 

2560 data 5,4,5,3,7,5,10,7,4,5,3,7,5,1 

0,10,4,5,3,7,5,10 

2570 for s=l to 80:read nl,x,n2,y,n3,z 

>d 

2580 sound l,15,nl,x,0:sound 2,15,n2,y 

,0:sound 3,l5,n3,z,d:next 

2590 data 0,5,2,4,2,3,10,9,5,2,4,2,3,1 

0,7,5,0,4,2,3,10 

2600 data 5,5,0,4,2,3,10,5,5,9,4,2,3,1 

0,2,5,9,4,2,3,10 

2610 data 5,5,0,4,2,3,10,7,5,0,4,2,3,1 

0,0,5,12,3,12,2,10 

2620 data 12,4,12,3,12,2,10,7,5,0,4,12 

,2,10 

2630 data 4,5,0,4,12,2,10,4,5,7,4,12,2 

,10,12,4,7,4,12,2,10 

2640 data 4,5,0,4,12,2,10,7,5,0,4,12,2 

,10,0,5,10,3,10,2,10 

2650 data 10,4,10,3,10,2,10,2,5,0,4,10 

,2,10,5,5,0,4,10,2,10 

2660 data 5,5,5,4,10,2,10,10,4,5,4,10, 

2,10,2,5,0,4,10,2,10 

2670 data 5,5,0,4,10,2,10,0,5,0,4,9,3, 

10,0,5,0,4,10,3,10 

2680 data 0,5,2,4,10,3,10,5,4,2,4,10,3 

,10,4,4,2,4,10,3,9 

2690 data 10,3,2,4,0,3,9,5,4,10,3,0,2, 

9,9,4,0,4,0,3,9 

2700 data 7,5,7,4,2,3,9,4,5,7,4,2,3,9, 

2,5,7,4,2,3,9 

2710 data 4,5,7,4,2,3,9,7,5,12,4,2,3,9 

,4,5,12,4,2,3,9 

2720 data 2,5,12,4,2,3,9,4,5,12,4,2,3, 

9,2,5,11,4,2,3,9 

2730 data 4,5,11,4,2,3,9,2,5,11,4,2,3, 

9,4,5,11,4,2,3,9 

2740 data 2,5,11,4,2,3,9,4,5,11,4,2,3, 

9,2,5,11,4,2,3,9 

2750 data 4,5,11,4,2,3,9,7,5,7,4,2,3,9 

,4,5,7,4,2,3,9 

2760 data 2,5,7,4,2,3,10,4,5,7,4,2,3,1 

0,7,5,12,4,2,3,9 

2770 data 4,5,12,4,2,3,9,2,5,12,4,2,3, 

9,4,5,12,4,2,3,9 

2780 data 2,5,11,4,2,3,9,4,5,11,4,2,3, 

9,2,5,11,4,2,3,9 

2790 data 4,5,11,4,2,3,9,2,5,11,4,2,3, 

9,4,5,11,4,2,3,9 

2800 data 2,5,11,4,2,3,9,4,5,11,4,2,3, 

9,7,5,7,4,2,3,9 

2810 data 4,5,7,4,2,3,9,2,5,7,4,2,3,9, 

4,5,7,4,2,3,9 

2820 data 7,5,12,4,2,3,9,4,5,12,4,2,3, 

9,2,5,12,4,2,3,9 

2830 data 4,5,12,4,2,3,9,2,5,11,4,2,3, 

9,4,5,11,4,2,3,9 

2840 data 2,5,9,4,2,3,9,4,5,9,4,2,3,9, 

2,5,7,4,2,3,9 

2850 data 4,5,7,4,2,3,9,2,5,4,4,2,3,9, 

12,4,4,4,2,3,9 

2860 repeat=repeat-l 

2870 if repeat=0 then goto 2880 else r 

estore MUSICDATa:gotD 2360 

2880 for i=l to 24:read nl,x,n2,y,n3,z 

,d 

2890 sound l,15,nl,x,o:sound 2,15,n2,!; 

,e:sound 3,l5,n3,z,d;next 

2900 sound l,0,0,e,O:sound 2,O,0,O,O:s 

ound 3,e,e,o,0:return 

2910 data 9,4,2,3,2,3,20,2,4,2,3,2,3,2 

0,5,4,9,3,5,3,10 

2920 data 7,4,9,3,5,3,10,9,4,9,3,5,3,1 



0,9,4,5,2,5,3,10 

2930 data 7,4,7,2,7,3,20,2,4,7,2,7,3,2 

0,9,4,9,3,5,3,20 

2940 data 7,4,9,3,5,3,10,5,4,9,3,5,3,1 

0,9,4,2,3,2,3,20 

2950 data 2,4,2,3,2,3,20,5,4,9,3,5,3,1 

0,7,4,9,3,5,3,10 

2960 data 9,4,9,3,5,3,10,9,4,5,2,5,2,1 

0,7,4,2,3,2,3,20 

2970 data 2,4,2,3,2,3,20,7,4,9,3,5,3,2 

0,5,4,9,3,5,3,20 

2980 data 7,4,9,3,5,3,20,10,4,9,3,5,3, 

40,9,4,2,3,5,3,110 

2990 'CLOSING SCREEN DATA 

3000 data 0,4,0,0,319,0,319,199,0,199 

• 

10 data 989, 742, 53, 970, 863, 822, 
356, 15, 178, 473, 5461 
110 data 698, 915, 635, 609, 928, 50 
8, 348, 276, 213, 45, 5175 
210 data 404, 85, 163, 691, 736, 

55, 188, 922, 653, 4705 

10 data 868, 646, 341, 215, 953, 

158, 149, 91, 489, 3978 

10 data 113, 281, 101. 584. 203. 



50 
808 
68 



88 
58 
102 



^J.O Odld OD0, D4D, ^41, ZI.3, JSi, 

, 158, 149, 91, 489, 3978 
410 data 113, 281, 101, 584, 203, 

2, 438, 370, 519, 772, 4263 
510 data 346, 581, 361, 186, 753, 

1, 61, 849, 916, 292, 4926 

610 data 893, 42, 921, 445, 230, 102 
, 167, 202, 169, 98, 3269 

710 data 484, 46, 80, 513, 569, 709, 

159, 400, 346, 353, 3659 

810 data 520, 297, 45, 787, 247, 181 
, 102, 218, 84, 288, 2769 

910 data 956, 43, 157, 212, 236, 215 
, 269, 529, 965, 257, 3839 

1010 data 819, 832, 848, 763, 440, 1 
20, 272, 180, 161, 982, 5417 

1110 data 161, 946, 11, 378, 643, 22 

3, 549, 473, 555, 66, 4005 

1210 data 706, 287, 807, 156, 999, 9 
57, 973, 980, 130, 204, 6199 

1310 data 161, 946, 355, 723, 186, 8 
44, 360, 268, 339, 682, 4864 

1410 data 675, 402, 621, 881, 773, 3 
53, 359, 868, 251, 160, 5343 

1510 data 313, 430, 3, 699, 647, 782 
, 312, 607, 119, 780, 4692 

1610 data 248, 467, 358, 436, 876, 5 
18, 787, 585, 474, 350, 5091 

1710 data 436, 876, 603, 152, 136, 7 
53, 189, 43, 756, 168, 4112 

1810 data 177, 675, 753, 742, 195, 7 
16, 3, 433, 209, 835, 4738 

1910 data 400, 337, 801, 796, 15, 81 

4, 96, 783, 452, 947, 5441 

2010 data 176, 785, 622, 409, 852, 8 
92, 266, 789, 458, 647, 5896 

2110 data 885, 772, 785, 788, 457, 7 
73, 804, 778, 497, 527, 7066 

2210 data 308, 854, 422, 805, 817, 7 
79, 872, 792, 163, 634, 6446 

2310 data 999, 824, 779, 406, 570, 8 

05, 339, 894, 297, 331, 6244 
2410 data 327, 306, 311, 339, 323, 



8 

5, 339, 894, 297, 331, 6244 

2410 data 327, 306, 311, 339, 323, 5 
67, 173, 468, 599, 588, 4001 

2510 data 977, 540, 698, 597, 337, 4 
28, 847, 666, 299, 295, 5684 

2610 data 517, 248, 689, 651, 781, 6 
49, 522, 522, 254, 71, 4984 

2710 data 310, 280, 283, 278, 166, 3 
07, 293, 282, 289, 273, 2761 

2810 data 64, 300, 288, 71, 155, 591 
, 230, 823, 676, 874, 4072 

2910 data 309, 350, 344, 337, 317, 3 
43, 325, 577, 182, 693, 3777 
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Zero Free 



Pack every sector on your disks 
for efficient storage. 



by Mike Stortz 



Over the years, I've collected quite a few binary load 
programs, distributed over thirty-two disk sides. I've al- 
ways tried to fit these programs together on a disk as eco- 
nomically as possible, spending hours over a hot calcidator, 
but there were usually ten or twenty free sectors left over. 

I recently obtained a "boot menu," a program that elimi- 
nated the need to have DOS and an AUTORUN.SYS file 
on each disk. I had to redistribute my programs to take 
advantage of this extra space anyway, so I decided that 
a utility program to replace my calculator — and callused 
digits — was in order. Zero Free was the result. 

Since some amount of speed was obviously going to be 
needed, I naturally chose to write in Action! I take sec- 
ond place to few people in my admiration of this excel- 
lent language. Machine language is fine where speed or 
small size are necessities rather than conveniences, but 
it's a terror to debug (at least, it's a terror for me to de- 
bug}. I knew that I wanted to combine file lengths to add 
up to 707 sectors, but I had no idea how to go about it. 
I wrote several "intelligent" (and unsuccessful) algoritlims 
before deciding to do the job with brute computing power. 

Zero Free will read in the directories of your disks (ig- 
noring any .SYS extenders) and fiercely recombine them 
randomly, until it meets with a favorable arrangement. You 
may be suprised at how few programs are required for 
Zero Free to come up with a completely full disk. It then 
prints out the appropriate filenames to a disk file, the 
screen or your printer. 

Using Zero Free. 

Insert youi- Action! cartridge, and type and save List- 
ing 1. Please use D:Check in Action! from issue 44 to 
check your typing. 

When run. Zero Free will provide you with initial in- 
structions. Give the number of free sectors you have per 



disk, the maximum number of files you wish to have on 
a disk side (I did this because my labeling program will 
only fit seven filespecs on a label), and D, S or P, depend- 
ing on whether you w^ish the program output to go to a 
file named D: PRINTOUT, the screen or your printer, re- 
spectively. 

Insert each disk that has files you want to pack and press 
the SPACE BAR. The directory of each disk will be dis- 
played. If a program on the current disk has ttie same name 
as a file previously entered, a number sign (#) appears next 
to it. If these two files are also of equal length, an equal 
sign (=) appears. You'll probably want to eliminate dupli- 
cate files. You can do this by pressing the letter next to 
the unwanted program. You can also add an extra file, by 
pressing the plus sign {+] and giving the filename and its 
length. 

When you've finished entering files, press ESC to quit 
data entry and begin calculation. Zero Free will produce 
a list of files that will fill as much space as possible on 
a disk side. If 3'ou've selected output for D: PRINTOUT, 
you will be prompted for a disk to write it on. 

When zero waste is no longer possible. Zero Free will 
go for the minimum waste it can find. This process con- 
tinues until all files have been assigned, or till the user 
has pressed a key and aborted the program. 

Using Zero Free and a boot menu program like NoDOS, 
QuikLoad, or BOOT, I reduced my librai-y from thirty-two 
to twenty disk sides, a savings of six disks. Now, I can put 
write-protect tabs and neat labels on all those disks, se- 
cure in the knowledge that I have — Zero Free sectors. H 

Mike Stortz is the P.D. Librarian /or G.R.A.S.P., the 
Richmond, Virginia Atari users' group. Seeming]}' unable 
to find employment in the programming field, he's work- 
ing on about thirty projects at once, including a graphic 
arcade/adventure game that will make Ultima III look like 
"Hunt the Wumpus." 
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Zero Free continued 



Listing 1. 
Action! listing. 

; CHECKSUM DATA 

; [9F CA 83 3A lA 88 5A 02 

i 43 re 3F 9D 21 EG IF F6 

; 95 99 75 78 78 96 4C 37 

; 46 73 A7 3D 68 39 Fl BC 

J 99 AF 86 8C 79 5B B9 7D 

: Dl 68 EC 7E EC E7 4C 9F 



BYTE btenp, spaces, len,checkf lag, 
naxf iles,devc ,nuM,quit, 
lnargin=82,shf lok=702,ch=764, 
atract=77,crsinh=752,errno=73, 
brkkey=17 

CARD idx, which, ctenp, sun, Max, spare, 
free, a, b, loss, least loss, waste, 
addlen,TMpErr,dl=568,sc=88 

INT ii 

BYTE ARRAY nanes (68881 , nane (28) , 
extender C51 ,holdC324) , 
strinslC14] ,strin92(14) 

CARD ARRAY length C588) , hlen (271 , 
prograns (5861 , pr (5881 



CARD FUNC Min(CARD aa,bbl 

IF aa<bb THEN RETURN (aal 

ELSE RETURN (bbl 

FI 

PR8C ClearCutd 

Position(2,171 
F8R a=l to 18 DO 

Put (1561 
DD 
Position (2, 181 

RETURN 



PRGC MyErrord 

ClearOutd 

IF brkkey=e THEN 

Error=TMpErr 

Breakd 
ELSEIF errno<>159 THEN 

PrintC'Disk Error tt"l 

PrintBE(errnol 

PutEd 

PrintC'Check the drive and "1 

PrintE ("press a key."l 

ii=GetD(21 
ELSE 

PrintECUnexpected error."! 

Print("Check things and press "l 

PrintE("a key."l 

ii=GetD(21 
FI 
RETURN 



PROC Titled 

lnar9in=8 
Graphics(81 



FOR bteMprl to 10 DO 
Put(1271 PUt(1581 
OD 

Print(" "1 

Put (1591 Put (1251 
P0ke(dl+9,71 
P0ke(dl+10,61 
Poke(718,1941 
P0ke(788,1981 
Poke (712, 1921 
crsinh=l 



Print("p 
Print("— 
Print ("I 



by 



i"l 

Written in ACTION! 
Print("Mike Stortz |"1 
Print("| G.R.A.S.P. of "1 
Print("RichHond, Ua. I"! 
Print (" ' "3 

Print (" ""1 

lMargin=2 

Print (" <zero><free> "1 

PrintE ("NO EMPTY SECTORS "1 

Print(" This prograM reads in "1 

PrintE("the contents"! 

Print("of your binary file disks, ": 

PrintE ("reneMbers"! 

Print("their lengths, and sorts "1 

PrintE ("then to"l 

Print("occupy the least nunber "1 

PrintE("of diskettes."! 

Print ("ZEROFREE Will hold about "1 

PrintE("589 "1 

PrintE ("prograMS & their lengths."! 

PutEd 

Print(" A disk has 787 free "1 

PrintE ("sectors if you"! 

Print("use a boot Menu like "1 

PrintE("QuikLoad, or 668"! 

Print("sectors Minus the length "1 

PrintE("of your Menu"! 

PrintE("if using DOS."! 

PutEd 

Print(" A ■»" will appear "1 

PrintE{"before a filenaMe"! 

Print("if it is a duplicate, "1 

PrintE("or a ■=• will"! 

Print("appear if it is of "! 

PrintE("equal length."! 

PutEd 

Print (" |,f,f--i |J-.»JJJJA-M "! 

P r i n t E ( "aCB!M3I«'^i 

ii=GetD(21 

crsinh=8 

free=8 
DO 

ClearOutd 

Print("How Many free sectors "l 

Print("auailable? "1 

free=InputCd 
UNTIL free>0 OD 

Maxfi 165=8 
DO 

ClearOutd 

Print("MaxiMUM files per disk? "l 

Maxf iles=InputB(l 
UNTIL Maxfiles>8 OD 

deuc=e 
DO 

ClearOutd 

PrintE ("Output to D: PRINTOUT,"! 

PrintE(" screen,"! 

PrintE("or printer"! 

Print (" (H/S/gi? "! 
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devc=GetDC2) 
UNTIL devcr'D OR 
devc='P OR 
devc='5 OD 

GraphicsCO} 
Poke (710,194) 
crsinh=l 

RETURN 



PROC GetDirC) 

PutC125J 

ClearOutC) 

Printed Now up to "3 

PrintC(nax) 

PrintEC" prograns.") 

nuM=8 

Closed) 

0pentl,"D:».»",6,8) 

DO 

InputMD (1, nane, 18) 
MoveBlockCextender+i,naHe+ll,3) 
extender (01 =3 

i i=SCDHpare (extender, "SYS") 
IF naMe(0}>16 AND iittO THEN 
nuH==+l 
MoveBlock(hold+nuHKl2+l,nane-i-3, 

11) 
hold(nuii|M12]=ll 
hi en (nun) =uaic (naMe+l4) 
IF nun=26 THEN EXIT FI 
FI 
UNTIL EOF(l) OD 
Closed) 

RETURN 



PROC PrintDirO 
BYTE dup 

Put (125) 

IF nUM>e THEN 
Print(" ") 

FOR bteHp=l TO nuM DO 
IF Max>8 THEN 

FOR cteMp=l TO Max DO 
NoveBlock(stringl+l, 

hold+12»bteMP+l, 11) 
stringl(8)=ll 
MoveBlock(string2+l, 

naMes+l2«cteMp+l,ll) 
string2(0)=ll 

ii=SCoMpare(stringl,string2) 
IF ii=e AND 

hlen(btenp)=length(ctenp) 
THEN 
ii=ie 
FI 
IF 

ii=8 OR ii=18 THEN EXIT 
FI 
OD 
FI 

IF ii=e THEN 

dup='tt 
ELSEIF ii=18 THEN 

dup=' = 
ELSE 

dup=32 
FI 
PrintF("y:C -Y.CKSy.C ",192+bteHp, 



dup, hOld'<'12«bteMp, 127) 



OD 
FI 
PUtEC) 

RETURN 



PROC CopyDirO 

MoveBlock(nanes-i'12+Max«12,hold+12, 

nun»12) 
MoveBlock(length+2+nax»2,hlen+2, 

nunK2) 
Max==+nuM 

RETURN 



PROC AddO 

ClearOutO 

SetBlock(stringl,14,32) 

PrintE("Enter filenane to add") 

PrintE("tHo '.', please)") 

InputMD (OjStringl, 11) 

IF Stringl(0}=8 THEN RETURN FI 

stringl(stringl(0)+l)r32 

stringl(8)=ll 

ClearOutO 

Print ("Enter length of ") 

PrintE(stringl) 

addlen=InputC() 

IF addlen=e OR addlen>4e8 THEN 

RETURN 
FI 

nun==+l 

MoveBlock(hold+nunKl2,stringl,l2) 

hlen(nuM}=addlen 

RETURN 



PROC Deleted 

bteMp==-64 

IF btenpttnuM THEN 

MoveBlock(hold+bteMp«12, 

hold+ (bteMp+l)Kl2, 
(nuH-btenp)«l2) 
MoveBlock(hlen+btenpW2, 

hlen+(bteMp+l)K2, 
(nuKi-btenp}«2) 
FI 
IF nun>8 THEN 

nuM==-l 
FI 

RETURN 



PROC GetLibraryO 



DO 



IF idx>488 THEN EXIT FI 

PrintDirO 
ClearOutO 

Print ("Insert next disk to ") 
PrintE("be catalog ed") 
PrintE("and press HIHl,") 
PrintE(" LETTER to delete,") 
PrintE(" l+iLto add, or") 
PrintE{" 1^^ " 



to quit & print") 



btenp=GetD(2) 

IF bteMp=32 THEN 
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(2 Zero Free 



continued 



copyDirCi 

GetDirCJ 
ELSEIF bteHp>64 and bteHP<65+nun 

THEN 

Deleted 
ELSEIF bteMP='+ THEN 

AddC) 
ELSEIF bteMp="t THEM 

Cop!;DirC} 

RETURN 
FI 
OD 
RETURN 



PROC PrintNaneCl 

PrintD CI, naMes+whichK12) 

PrintDCl," "J 

spaces==+l 

IF spaces=4 OR 

Cspaces=3 AND devc='S] THEN 



FI 



spaces=e 
PutDECl) 



PROC Printout CI 

spaces=e 

FOR idx=l TO len DO 

which=prograMsCidx) 

PrintNaneC) 
OD 

IF spacestte THEN 

PutDECl) 
FI 

PrintCDCl, free-suMJ 
PrintDECl," FREE"J 
spare==+free-suM 

IF devc='5 THEN 

PutEC) 

Print C'Press any key "J 

PrintEC'to continue") 

bteMp=GetDC2) 
FI 

RETURN 



RETURN 



PROC ReMoveCl 



PROC KeyCheckC) 

IF Ch<255 THEN 
Ch=255 
PutEC) 
FOR idx=l TO nax DO 

PrintDCl,nanes+prDgransCidx)«12) 

PrintDCl," ") 

PrintCDECl, 

length Cprograns Cidx) ) ) 

OD 

PrintEC"Press IdMldU.") 
ii=GetDCl) 
quit=l 
FI 



FOR idx=len+i TO Max DO 

prograns Cidx-len)=prDgraMsCidx) 
OD 

Max==-len 
IF Maxze THEN 

Close CI) 

Close C2) 

ClearOutC) 

PrintEC"All done. . .") 

Break C) 
FI 

RETURN 



PROC Check C) 



RETURN 



PROC PrintMessO 

PutC125) 
PutEC) 

printFC">:sxu>:E", 

"Prograns left - ",Max) 
PrintFC">:s>^uxE", 

"Sectors wasted - ", spare) 
PrintFC"X5XUXE", 

"Allowable waste - ", waste) 
PutEC) 

PrintEC"Press any key to abort") 
PutEC) 

PrintC"Thinking about ") 
PrintEC"coMbinations. . .") 
PrintEC"This Many free sectors :") 
RETURN 



PROC SwitChC) 

idx=RandCMax)+l 
which=Rand CHax) +1 
cteMp=prograMS Cidx) 
prograMsCidx)=prograMsC which) 
prograMsCwhich)=cteMp 

RETURN 



SUM=0 
b=MinCMax,Maxf iles) 

FOR idx=l TO b DO 
len=idx 

CteMp=SUM 

which=prograMSCidx} 
suK==+lengthCwhich) 

IF suM>free THEN 

SUM=CteMp 

len==-i 
EXIT 
FI 

loss=free-suM 
OD 
RETURN 



PROC PrintLibrary C) 

FOR idx=l to Max DO 
prograMS Cidx) =idx 
OD 

PrintMessO 

DO 

atract=8 

leastloss=ieoe 

FOR a=i to leeoe do 
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IF quit=l THEM EXIT FI 

KeycheckC) 

SwitChd 

CheckC) 

IF loss<IeastlDss THEN 

leastloss=loss 

PrintCECloss) 

a=l 

IF IOSS=e THEM EKIT FI 
FI 
OD 

waste=l east loss 

FOR a=i TO leeee do 

IF quit=l THEM EXIT FI 
KeycheckO 
SwitChC) 
CheckO 

IF loss<=Ieastloss THEM 
a=l 

PrintOutCJ 
ReMoveCJ 
PrintHessC} 
FI 
OD 

IF quit=l THEM EKIT FI 
OD 

PROC HainO 



Close(2) 

Opent2,"K;",4,0J 
TMpErr=Error 
Error=MyError 
idx=8 spare=8 
Hax=e nun=e 

ZERO ChOld, 240) 



waste=0 quit=0 
ShflOk=64 



TitleC) 
GetLibrart/C) 

Closed} 

IF deuc="D THEM 

ClearOutC) 

PrintC'Insert disk to ■■) 

PrintEC'hOld D:PRIMT0UT"1 

PrintEC" and press any key"y 

btenp=GetDC2) 

Open (1 , "D : PRINTOUT" ,8,0) 
ELSEIF devc='S THEM 

Open tl,"E:", 12,0) 

PokeC7ie,194) 

PokeC788,198] 
ELSE 

0penCl,"P:",8,8) 
FI 

crsinh=l 
PrintLibraryC) 

Closed) 
closeC2} 
Error=TMpErr 

RETURM 



0- 



• i 



the successor to Pascal 







I FULL interlace lo GEM DOS. AES 

and VDI 
I Smart linker lor greatly reduced 

code size 
I Full Screen Editor linked lo coiTipiler 

locales and identifies all errors. 
I True native code implementation 

(Not UCSD p-Code or M-code) 
I Soptiisttcaled multi-pass compiler 

allows forward references and code 

optimization 
I Desktop automates 

Edit/Compile/ Link cycle 
I FileSystem, ReallnOut, LonglnOut, 

InOul, Strings, Storage, Terminal 



■ Streams. MathLibO and all standard 
modules 

■ Directory search patlns 

• Supports real numbers and 
transcendental funclions le sin, cos, 
lan, arctan, exp. In, log, power, sqrt 

■ 3d graphics and multi-tasking 
demos 

■ CODE statement lor assembly code 

■ 370-page manual 

■ Installs on Hard disk and RAM disk 

■ No royalties or copy proteclion 

■ Phone and network customer 
support provided 



Pascal and Modula-2 source code are nearly identical, Modula-2 should be thought 
of as an enhanced superset of Pascal. Professor Nikiaus Wirth (the creator ol 
Pascal) designed Modula-2 to replace Pascal. 



Added features o( Modula-2 not found In Pascal 


■ CASE has an ELSE and may contain 


■ Dynamic strings that may be any 


subranges 


size 


■ Programs may be broken up into 


■ Multi-tasking is supported 


Modules forseparate compilation 


■ Procedure variables 




■ Module version control 


■ Machine level interface 


■ Programmer definable scope of 


Bil-wise operators 


objects 


Diiect port and Memory access 


■ Open array parameters (VAR r: 


Absolute addressing 


ARRAY OF REALS;) 


Interrupt structure 


■ Elegant type Iransler functions 



Ramdjsk 
Benchmarks (sees) 

Sieve of Eratosthenes: 

Float 

Calc 

Null program 



Compile 

6,2 
6.4 

55 
5 1 



4.3 
4.8 
4.2 
3,2 



35 

8.3 
33 



Optomized 
Size 

2600 bytes 
4844 bytes 
2878 bytes 
2370 bytes 



MODULE Sieve; 


MODULE Float; 


CONST Size = 8190; 


FROM MathLibO IMPORT sin, In, exp. 


TYPE FlagRange = (O..Size]; 


sqrt, arclan; 


FlagSel = SET OF FlagRange; 


VAR x,y: REAL; i: CARDINAL; 


VAR Flags: FlagSet; 


BEGIN CST-.SA-.JS--) 


i: FlagRange; 


x:= 1,0; 


Prime, k. Count. Iter: CARDINAL; 


FORi:= 1T0 1000 DO 


BEGIN CSS-.SR-.SA^ •) 


y:= sin (x); y:= In (x); y;= exp (x); 


FOR lter:= 1 TO 10 DO 


y:= sqn (x); y;= arctan (x); 


Count:= 0; 


x:= x + 0,01; 


Flags:= FlagSetO; C empty set ') 


END; 


FOR i:= TO Size DO 


END tloat 


IF (i IN Flags) THEN 

Prime:= (i • 2) * 3; k:= i * Pnnne: 






WHILE k <= Size DO 


MODULE calc; 


INCL (Flags, k); 


VAR a.b.c. REAL; n, i: CARDINAL; 


k:= k + Prime; 


BEGIN CST-.SA-.SS--) 


END; 


n:= 5000; 


Count:= Count + 1: 


a:= 2,71828; b:= 3.14159; c:= 1,0; 


END; 


FOR i:= 1 TO n DO 


END; 


c:= c'a; c:= c"b; c:= c/a: c:= c/b; 


END; 


END; 


END Sieve. 


END calc. 



Product History 

The TDI Modula-2 compiler has been running on the Pinnacle supermicro (Aug. 
'84). Amiga (Jan, '86) and will soon appear on the Macintosh and UNIX in the 4th 

otr. -se- 



Regular Version $79.95 Developer's Version $149.95 Commercial Version $299.95 

The regular version contains all the features listed above. The developer's version 
supplies an extra diskette containing a symbol file decoder - link and load file 
disassemblers - a source file cross referencer - symbolic debugger - high level 
Windows library Module - Ramdisk and Print Spooler source files - Resource 
Compiler, The commercial version contains all of the Atari module source files. 





Olfier Modula-2 Products 




Kermit 


- Contains full source plus S15 connect time to CompuServe. 


S29.95 


Examples 


- Many Modula-2 example programs to show 






advanced programming techniques 


$24.95 


GRID 


- Sophisticated multi-key file access method with over 






30 procedures lo access vanable length records. 


549.95 



7Df 



10410 Markison Road 
Telex: 888442 



SOFTWARE, INC. 
Dallas. Texas 75238 • (214) 340-4942 
CompuServe Number; 75026.1331 



CIRCLE ff109 ON READER SERVICE CARD 
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s!^,^micrOtyme 




A DIVISION OF MICRO PERIPHERALS, INC. 

P.O. BOX 369 • KETTERING, OHIO 45409 




A, 

ATARI 



HARDWARE/ACCESSORIES 



ATARI 
ST's Color or Mono 

ST Monitor CaUles 

SF314 Double Sided Drive... 
Supra 20. 30. 60 Meg Hard Disl<s 



.CALL 
CALL 
.CALL 
.CALL 



SH 204 20 Megabyte Hard Disl( CALL 

SC 1224 RGB Color Monitor CALL 

130 XE CALL 

65 XE CALL 

1050 Disk Drive CALL 

1020 Color Printer/Plotter 27 

Astra ■■The One" 284 

7800 Pro System & Software CALL 

PowerSupply400/800/810 1050/850 . 15 

Power Supply 600/800 XL. 130 XE 26 

Power Supply for Indus GT 15 

PANASONIC 

KX-P1080;, 120 cps, CALL 

KX-P1091/, 160 cps CALL 

KX-P1092I, 240cps CALL 

KX-P1592 136 col. True 180 cps 549 

KX-P3131 L.Q.Daisy. 80 col 279 

KX-P3151 L.Q. Daisy, 136 col 429 

KX-P110 Ribbon. BIk 9 

COLOR RIBBONS 11 



CITIZEN 



MSP- 10 . 
MSP-15 . 



STAR MICRONICS 

NX-10{80col) 

NP-10 NEW MODEL 

NL-10 

NX-15(135col) 

STAR SG-10 Ribbons 

Ribbons NL or NX 



CALL 
CALL 



CALL 
. 179 
CALL 
.429 
. . 4 
CALL 



MODEMS 

SX-212 CALL 

XM-301 Direct Connect CALL 

HAVES 1 200 Smartmodem 399 

US ROBOTICS COURIER 2400-100% Hayes! 429 

HABA 1200 (Hayes Compatible) 119 

VOLKSMODEM VM 520 (Hayes Compat) 139 

AVATEX 1200bps Special 89 

AVATEX 1200 H.C. (Hayes Compatible) ... 129 

INTERFACES/BUFFERS 

ATARI 850 In Stock! 119 

P:R: CONNECTION (100% 850 compatible) 69 

CABLES - We've Got Em CALL 

XETECGRAPHIXAT 39 

SUPRA/ MPP MICROPRINT 39 

SPECIAL SUPRA MICR0STUFFER(64K) .59 
SUPRA/MPP1150 CALL 



MIDI HEADQUARTERS 

CZ'S CALL 

Cables CALL 

Hybrid Arts Software CALL 

Other MIDI Software CALL 

MONITORS 

TEKNIKA MJ-22 RGB and Composile 289 

NAP Green W/Audio 85 

NAP Amber W/ Audio 90 

NAP Composite Color CALL 

NAP. RGB and Composite CALL 

SANYO Composite 189 

EPSON 

LX-86{80cOl) CALL 

FX-85(80col) CALL 

FX-286 200cps(135col) CALL 

Tractors CALL 

ACCESSORIES 

ST - COVERS. Heavy Grade Vinyl . . 

ST -MOUSE MAT 

ST- 6' Printer Cable 

ST - Modem Cable [to Hayes, etc.) . . 
ST -Monitor Stand. Swivels, Tilt . . . 
ST Clock Internal or Plug-In 
Disk File lor 3.5^^ disks (holds 401 . . 
Flip N File DATA CASE {holds 50) 5 y. 
Disk File, with Lock (holds 100!) 5'A 
Power Strip. 6 outlet. (15 amp Surge) 
Deluxe Power Strip w/Spike & Surge 
Printer Stand. Heavy Duly. Sloping 

ATARI ■■Standard '■Joystick 

Epyx 500XJ Joystick 

WICO Bat Handle Slick 

Competition Pro 5000X Stick 

6^ Atari Serial I/O Caljle . 

Book ot Adventure Games I or II 

Disk Nolcher 

CompuServe Starter Kit 

U.S. DOUBLER(Dbl. Density lor 1050) . 
U.S. DOUBLER withoul Sparta DOS 
■"Duplicator" tor 1060 Disk Drive ... 



SOFTWARE 
We can't list it all. . .call if you don't see it! 



8BIT SOFTWARE 



ATARI 

Atariwriter Plus 35 

Proofreader 12 

Silenl Butler 18 

Learning Phone 15 

Star Raiders II 13 

OTHERS CALL 

ACCESS 

Triple Pack 14 

Leader Board 26 

Tournament Disks 14 

ACCOLADE 

Hardball 20 

Fight Night 20 

BATTERIES INCLUDED 



.10 

..19 

17 

.15 

ea41 

9 

8 

13 

15 

24 

13 

.7 

..15 

.17 



39 
15 
27 

.19 
.13 

18 
18 
23 
28 
24 
ea 16 

27 
21 



.7 
15 
5 
24 
49 
29 
125 



PRINTER SUPPLIES 

MAILING LABELS. White. 500 pack 

per 1000 
Blu. Pnk. Gn, Yel. 800 pack (200 ea) 

per 500. any 1 color 

per 1000, any 1 color 
Big Labels. 1-7/16x4"^. White, per 500 
PRINTER PAPER, Micro-Fine perfs, 20 lb. 
500 sheets. Pure While Bond 8 

1000 sheets, same as above 14 

PRINTSHOP "Rainbow" Color Paper Packs 
Pastels(5colors). 50 sheets of ea. 12 

Matching Envelopes, 20 of each 6 

Brights (8 colors), 50 sheets otea .29 

Matching Envelopes. 20 ol each 10 

ALL 13 colors. 50 sheets ol each 39 

Matching Envelopes. 20 of each 14 



Paperclip w/Spellpak 

Homepak 

B-GRAPH 

ARTWORKX 

Strip Poker 

S.P. Data Disks^ach^ 

bmoderbund 

Championship Loderunner 

Karateka 

Loderunner 

Prim Shop 

Print Shop Companion 
Graphics Library 1.2. or 3 
DATASOFT 
Alternate Reality 
Never Ending Story 

ELECTRONIC ARTS 
Racing Destruction Set 12 

Super Boulderdash 12 

Touchdown Football 12 

Ullima IV 43 

Many Other Titles CALL 12 

EPYX 
World Karate Championship 19 

INFOCOM 
Hitchhiker's Guide 23 

Leather Goddesses 22 

All Others CALL 

O.S.S. 

Action 46 

Basic XL 36 

MAC/65 46 

Tool Kits for above ea 19 

Basic XE 46 

SSI 

Mech Brigade 38 

War Game Const. Set 19 

NAM 25 

USAAF 36 

Phantassie 25 

Wizard's Crown 26 

OTHERS CALL 



SUBLOGIC 

Flight Simulator II 37 

Scenery Disks ea 15 

Western Scenery Set 74 

SYNAPSE 

SYNCALC 31 

SYN CALC TEMPLATES 13 

SYNFILE + 31 

XLENT 

Typesetter 22 

Rubber Stamp 20 

Page Designer 20 

Megafont II 16 

PS. Interlace 19 

Word Processor 20 



ST SOFTWARE 



ATARI 

isl Word Plus NEW 32 

Microsoft Write 59 

Battlezone 19 

Crystal Castles 19 

Joust 19 

Star Raiders 19 

ABACUS 

Text Pro 33 

Datatrieve 33 

Power Plan 52 

PC Board Designer CALL 

ACCESS 
Leader Board 26 

Tournament Disks ea 14 

ACCOLADE 

Mean 18 33 

Hardball CALL 

ACTIVISION 

Hacker II 33 

Litlle Computer People 31 

Shanghai 29 

Tass Times 32 

ANTIC 

A-CALC PRIME 59 

CAD-3D 36 

CAD-3D STEREO 65 

STERE0TEK3-DPkg 125 

Flash 29 

Expert Opinion 72 

Others CALL 

ARTWORX 

Strip Poker 26 

Bridge4.0 20 

Peggammon 12 

BATTERIES INCLUDED 

B-Graph Elite CALL 

D.E.G.A.S. Elite 49 

Paperclip Elite CALL 

Thunder 26 

Time Link 32 

ELECTRONIC ARTS 
Arctic Fox . 27 



Auto Duel 32 

Marble Madness CALL 

Sky Fox 29 

Chessmaster 2000 31 

Ultima III 39 

Ultima IV 39 

EPYX 

Summer Games 26 

Winter Games 26 

Super Cycle 26 

Championship Wrestling 26 

World Games 26 

Rogue 26 

Trilogy 26 

INFOCOM 

All Titles CALL 

MICHTRON 

Cornerman 32 

DOS Shell 32 

M-Disk 26 

Mighty Mail 32 

Personal Money Manager . 32 

Pinball Factory 25 

Utilities 39 

Time Bandits 26 

Trim Base 64 

Major Motion 26 

FIREBIRD 

Guild of Thieves 29 

Starglider 29 

The Pawn 29 

REGENT 

Regent Base 67 

Regent Word II . .67 

SIERRA-ONLINE 
ST ONE WRITE 39 

Donald Duck's Playground 19 
Ultima II 39 

KingsOuestl. Ilor III ea33 

Space Quest 33 

TIMEWORKS 
Data Manager ST 52 

Swift Calc ST 52 

Word Writer ST 52 

UNICORN 
Math Wizard . . 26 

Fraction Action 26 

Decimal Dungeon 26 

Read & Rhyme 26 

UNISON WORLD 

Print Master Plus 26 

Art Gallery I. II or III ea19 

ST LANGUAGES 
MODULA 2 54 

MOD 2 Developer's Kil 99 

MARK WILLIAMS C. . 119 

UniCEC 109 

GST-ASM 45 

ASSEM PRO 39 

GFA Basic 52 



Prices Are Per Box/ Pack of 10 






DISKEl 


FTES 




Prices Are Per Box/ Pack of 10 


5'h" 


GENERIC 


SONY 


MAXELL 


BONUS 


WABASH 


3V? 


SONY 


MAXELL 


VERBATIM 


SS/DD 


DS/DD 


SS/DD 


DS/DD 


SS/DD 


DS/DD 


SS/DD 


SS/DD 


DS/DD 


SS/DD 


SS/DD 


2-5 


6.95 


7.95 


9.50 


11.95 


8,95 


10.95 


8.50 


2-5 


15.00 


24.00 


15.00 


15.00 


6-10 


5.95 


6.95 


8.50 


10.95 


7.95 


9.95 


7.50 


6-10 


14.00 


22.00 


14.00 


14.00 



Rainbow Colored Centech Disks (2 ea. of 10 colors per pkg) 17 



"Silver" Centech Disks (20 Pack) 17 



TO ORDER. CALL TOLL FREE 1-800-S55-5835 



M-F 9am - 9pm • EST • SAT 10am ■ 4pm 
Ohio Residents, Order Status or Tech, Info Call (513) 294-6236 

TERMS AND CONDITIONS 

• NO EXTRA CHARGES FOR CREDIT CARDS! • We do not bill until we ship • Minimum order $20 • C.O.D. to continental U.S. only, add $3 • Ohio residents add 6% sales lax • Please allow 3 weeks for 
personal or company checks to clear • Shipping/Handling; (Call lor Quote). Hardware, minimum $4; Software and most accessories, minimum $3 • Overnight shipment available at extra charge • We ship io 
Alaska. Hawaii. Puerto Rico (UPS Blue Label Only), APO, and FPO • Canadian orders, actual shipping plus 5%, minimum $5 • All defective products require a return authorization number to be accepted lor 
repair or replacement • No tree trials or credit • Returns subject to 15% re-stocking charge • Due to changing market conditions, call toll free for latest price and availability ol product. FOR YOUR PROTEC- 
TION, WE CHECK ALL CREDIT CARD ORDERS FOR FRAUD. 
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BAS r Cally 



Melod i c 



How to tease BASIC 

into giving you the music you want. 



by Clayton Walnum 



Most programmers would agree that, to get the most out 
of Atari's sound chip — especially when it comes to mu- 
sic — you have to resort to machine language. This is true. 
BASIC is much too slow and inflexible to allow you to per- 
form many of the feats of sound prestidigitation you may 
have kicking around in your wonderfully creative mind . 
But that doesn't mean BASIC is incapable of producing 
some pleasing results. It just takes a little care and plan- 
ning. In fact, you might be amazed at what you can ac- 
complish if you're not afraid of a few mental calluses. 

For instance, you can get around BASIC'S lack of speed 
by stripping your music down to its simplest components. 
The less you force BASIC to do, the faster the program will 
run. This means giving up a lot of the extras you might 
like to use in your music, such as tailoring each sound's 
envelope to match a particular instrument's, but you'll find 
that such small sacrifices will make possible surprisingly 
complex musical compositions. 

One problem with BASIC that we can't get around is 
the fact that, being single-minded, BASIC can handle only 
one job at a time. When music is playing in your program, 
everything else must come to a halt; those slavering aliens 
you worked so hard to animate must give up their attack 
until the music's final refrain issues from your monitor's 
speaker. The only reasonable way around this is to set up 
a vertical blank interrupt (VBI) to play the music, and that 
requires — you guessed it — machine language. 

The first step. 

Before we go any further, type in Listing 1 using BA- 
SIC Editor II to check your work, then run it. 

Not bad for BASIC, eh? Take a look at Line 60 and tell 
me what you see there. Looks like a delay loop, right? Even 



though BASIC is slow, the program in Listing 1 requires 
so little processing time that we have to slow it down in 
order to make the music listenable. Experiment with differ- 
ent values in the loop. If you want to hear BASIC burn , 
take the loop out completely. 

As I said, the program is fast because we've given it so 
little to do. In fact, the entire "player" section of the pro- 
gram consists of only the statements from Lines 10 through 
90. If we wanted to be less fussy, and weren't afraid to type 
some extra data statements, we could reduce the player 
section even more. Lines 10, 40, 80 and 90 allow us to re- 
use much of the data found in succeeding lines, which 
greatly reduces the amount of memory the program con- 
sumes. We could, however, easily do without them, as long 
as we were willing to make om' music data "linear" — that 
is, play the music from start to finish without reusing any 
of the data. 

How can we manage to play complex music with such 
a small "player"? 

Trade secrets. 

Like any piece of music, the composition reproduced 
in Listing 1 contains several unique parts. It's this unique- 
ness that places the task of programming music on the 
same frustration level as trying to get a date with Phoebe 
Gates. Headache and heartbreak! 

You can see from Listing 1 that, to play our music, we 
read a line of data, use the data to alter the output of each 
of the four sound channels, then loop back to read anoth- 
er line of data. 

We could, of course, reproduce our music with a huge 
list of SOUND statements, each statement with its own 
parameters, and thus eliminate the problem of different 
note durations (a problem we'll deal with a couple of para- 
graphs from now) . We'd then simply turn on a voice and 
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go about our business, until it's time to change the voice 
to another note. In this way, we would manipulate each 
voice separately, without being forced by a loop structure 
to change the other sound channels as well. 

But that would be clunky, and consume much more 
memory than the looping method does. As programmers, 
we should always be on the lookout for more elegant so- 
lutions to our problems. 

Whenever you see a piece of code that repeats the same 
statements over and over, using a loop is the obvious so- 
lution. In our case, using a loop creates a problem even 
as it solves one. What happens when we want one voice 
to sound a quarter note, another an eighth note, another 
a half note — yet we're changing all the sound registers at 
the same moment, each time we move through the loop? 

Troublesome, yes. . . 

The trick. 

. . .but easily resolved. 

Fact 1; If we use the looping method, each note in the 
music must have the same duration, since every time we 
perform another iteration of the loop, we change all four 
voices. 

Fact 2: The notes that make up our music do not have 
the same duration. In fact, all four voices must be rhyth- 
mically independent. 

Obviously, Fact 1 and Fact 2 don't get along too well. 
Since we've already resolved that using a loop is the proper 
way to write our program, let's see what we can do to make 
Fact 2 fit into the plan. Let's restate it this way: 

Fact 2: The notes that make up our music do not ap- 
pear to have the same duration. In fact, all four voices must 
be rhythmically independent to the ear. 

What does that mean? Simple. When you come right 
down to it, a quarter note is really just two eighth notes 
played one after the other with no pause between them. 
Likewise, a half note is just two quarter notes pushed to- 
gether. 

So, if we find the note of shortest duration in our mu- 
sic then rewrite everything relative to that, the loop struc- 
ture of our program becomes feasible. In other words, if 
the music we wish to reproduce on our Atari is made up 
of eighth notes, quarter notes and half notes, we must 
break dovwi each quarter note to two eighth notes and each 
half note to four eighth notes. Now, all we have to do in 
our program is play a series of eighth notes, making Fact 
1 and Fact 2 completely compatible. 

The data. 

AH of the data for our music is found starting at Line 
100 of Listing 1. To make it easy to edit, it's organized by 
measure, with each measure made up of eight lines of 
numbers. Each voice requires two pieces of data. There- 
fore, every line of data contains eight numbers, two for 
each of the four voices. 

It's no coincidence that there are eight lines of data. After 
breaking the music down, I found that the note of short- 
est duration was an eighth note. In common time, there 
are four beats per measure, each beat being the duration 
of a quarter note. So how many eighth notes do we have 
per measure? (Say, "Eight.") 



Each line of data, then, represents one eighth note for 
all four voices. The first pair of values is used for SOUMD 
0, the second pair for SOUND 1, the third pair for SOUND 
2, and the fourth pair for SOUND 3. The first value of each 
pair is the frequency (or pitch) of the sound (see Table 1 
for the pitch values needed to duplicate the various notes). 
The second number is a value we'll use when we want to 
pause briefly between notes. We have to do this, because 
two notes of the same frequency will blend together — 
unless we separate them. Unfortunately, we can't just go 
through and pause after every note. We sometimes need 
to use the blending effect to merge two eighth notes into 
one quarter note, remember? 

Stepping through the program. 

Now^, let's take a quick look at how the program does 
its thing. 

Line 10 — Causes the program execution to con- 
tinue at Line 80 w^hen we run out of data. 

Line 20 — Reads the first line of data. 

Line 30 — Uses the value read into PO, Pi, P2 and 
P3 to briefly turn off the appropriate sound channel 
(if this value is 0) , allowing us to have two consecu- 
tive notes of the same pitch without blending them 
into one. This value is the volume parameter for the 
SOUND statement. For a pause, use 0. For no pause, 
make this value equal to the volume parameter for the 
appropriate SOUND statement in Line 50. 

Line 40 — Since the only change in the music dur- 
ing the second pass through the data is the addition 
of the fourth voice, we place the SOUND 3,N,N,N 
statement into an IF statement, separating it from the 
other three SOUND statements in Line 50. This saves 
us from typing a lot of extra data. 

Line 50 — Here, we use the pitch values read from 
the data to turn on the sound channels. 

Line 60 — This delay loop sets the duration of the 
notes. 

Line 70 — Go back and read the next line of data. 

Line 80 — When we run out of data, die TRAP state- 
ment in Line 10 will cause program execution to con- 
tinue here, where we set the flag PASS to activate 
voice 3, set the data pointer to the beginning of the 
first measure of music (skipping over the drum and 
bass intro) , set a new TRAP for Line 90, then go back 
to read through the data. 

Line 90 — When we run out of data the second 
time, the TRAP set in Line 80 will cause the program 
to continue here. All this line does is initialize the pro- 
gram to repeat the entire piece. The only way out is 
to press BREAK or RESET (or, if you're desperate, you 
can cut the power). 

Let there be music. 

And there you have it; a simple way to program impres- 
sive pieces of music through BASIC. Get out all that sheet 
music that's been kicking aromid and give it a try. It's a 
meticulous process, but if you're diligent, you'll be pleased 
with the results. G\ 
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Table 1. 



Musical 


pitch values 


High C 


29 


B 


31 


Alt 


33 


A 


35 


G» 


37 


G 


40 


Ftt 


42 


F 


45 


E 


47 


D« 


50 


D 


53 


C« 


57 


C 


60 


B 


64 


Ad 


68 


A 


72 


G« 


76 


G 


81 


F» 


85 


F 


91 


E 


96 


DIt 


102 


D 


108 


C? 


114 


Middle C 


121 


B 


128 


A» 


136 


A 


144 


G« 


153 


G 


162 


Fit 


173 


F 


182 


E 


193 


D« 


204 


D 


217 


C« 


230 


C 


243 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor 11, 
in issue 47. 



Listing 1. 
BASIC listing. 



5F 10 TRAP 88 

OD 26 READ F0, P8, Fl, PI, F2, P2, F3, P3 

HI 38 SOUND 8,F0,8,P6:50UND 1, Fl, 18, PI : SO 

UND 2,F2,ie,P2 
OX 40 IF PASS=2 THEN SOUND 3,F3,18,6 
UN 50 SOUND 0,Fe,0,4:S0UND 1, Fl, 18, 8 : SDUN 

D 2,F2,18,6 
FZ 68 FOR X=l TO 58:NEXT X 
KX 78 GOTO 20 



IZ 


88 


LC 


58 




18 


LN 


108 


BJ 


118 


EL 


128 


GT 


138 


EZ 


148 


BR 


158 


ZT 


160 


HB 


170 


FH 


180 


NH 


190 


BX 


200 


EK 


210 


G5 


220 


EV 


230 


BQ 


240 


ZS 


250 


HA 


260 


FG 


270 


NM 


280 


HH 


290 


FJ 


308 


m 


310 


FX 


320 


BO 


330 


EY 


340 


6Z 


350 


KD 


360 


OC 


370 


HG 


380 


6B 


390 


GO 


400 


FM 


410 


BN 


420 


EX 


430 


sv 


448 


KC 


450 


05 


460 


HF 


470 


GA 


480 


NU 


490 


UP 


508 


RF 


510 


VD 


520 


NJ 


530 


KI 


540 


PI 


550 


CR 


560 


NT 


570 


NT 


580 


VH 


590 


RE 


600 


YC 


610 


NX 


620 


NH 


630 


PY 


640 


LD 


650 


AM 


660 


NF 


670 


YH 


680 


DB 


690 


TY 


700 


MM 


710 


GH 


728 


»0 


738 


HG 


748 


XD 


750 


OD 


760 


YG 


770 


MK 


780 


MQ 


790 


00 


800 


LR 


810 


RE 


820 


HH 


830 


m 


840 



PASS=2: RESTORE 470:TRAP 90:GOTO 20 
RESTORE :PaSS=l:SOUND 3, 8, 0, O.'GOTO 

REM MEASURE 1 
DATA 58,4,0,0,8,8,8,8 
DATA 0,0,8,8,8,8,8,8 
DATA 1,4,8,8,8,8,8,8 
DATA 1,8,8,0,0,6,0,8 
DATA 56,4,8,8,8,6,8,6 
DATA 58,0,8,8,8,6,6,8 
DATA 1,4,8,6,6,8,0,0 
DATA 1,0,0,0,0,0,0,6 
REM MEASURE 2 
DATA 50,4,0,6,8,8,6,6 
DATA 0,0,0,6,6,0,6,6 
DATA 1,4,6,6,6,0,0,8 
DATA 1,0,0,0,0,8,6,0 
DATA 50,4,6,6,6,0,0,8 
DATA 50,0,0,6,6,8,0,0 
DATA 1,4,6,6,6,0,0,0 
DATA 1,0,0,0,0,0,0,0 
REM MEASURE 3 
DATA 50,4,0,0,144,6,0,8 
DATA 0,0,0,0,144,6,0,0 
DATA 1,4,0,0,0,0,0,0 
DATA 1,0,0,0,144,6,0,0 
DATA 50,4,0,0,144,0,0,0 
DATA 50,0,0,0,144,6,0,0 
DATA 1,4,0,0,0,0,0,0 
DATA 1,0,0,8,0,0,0,0 
REM MEASURE 4 
DATA 50,4,0,0,144,6,8,6 
DATA 6,8,6,8,144,6,0,0 
DATA 1,4,0,0,0,0,0,8 
DATA 1,8,8,8,144,6,6,8 
DATA 58,4,8,8,144,0,0,0 
DATA 50,0,0,0,144,6,8,8 
DATA 1,4,6,8,6,8,0,0 
DATA 1,0,0,8,0,0,0,0 
REM MEASURE 5 
DATA 50,4,0,0,144,6,6,8 
DATA 0,0,0,0,144,6,0,8 
DATA 1,4,60,0,0,0,47,4 
DATA 1,0,53,0,144,6,45,4 
DATA 56,4,47,8,144,0,46,4 
DATA 58,8,53,8,144,6,45,4 
DATA 1,4,68,6,6,6,47,4 
DATA 1,0,47,8,8,0,40,4 
REM MEASURE 6 
DATA 50,4,47,8,144,6,46,4 
DATA 0,0,47,8,144,6,40,4 
DATA 1,4,60,0,0,0,47,4 
DATA 1,0,53,0,144,6,45,4 
DATA 50,4,47,0,144,0,46,4 
DATA 50,0,53,0,144,6,45,4 
DATA 1,4,60,0,0,0,47,4 
DATA 1,0,47,8,0,0,40,4 
REM MEASURE 7 
DATA 50,4,47,8,192,6,64,4 
DATA 0,0,47,8,192,6,60,4 
DATA 1,4,64,0,0,0,53,4 
DATA 1,0,60,0,192,6,47,4 
DATA 50,4,53,8,192,0,45,4 
DATA 50,0,60,0,192,6,40,4 
DATA 1,4,64,0,6,6,35,4 
DATA 1,0,53,0,6,6,31,4 
REM MEASURE 8 
DATA 50,4,53,8,192,6,35,4 
DATA 0,0,53,8,192,6,46,4 
DATA 1,4,64,6,8,8,45,4 
DATA 1,8,68,8,192,6,47,4 
DATA 50,4,53,0,192,0,53,4 
DATA 50,0,60,0,192,6,60,4 
DATA 1,4,64,0,0,0,64,4 
DATA 1,0,53,0,0,0,64,4 
REM MEASURE 9 
DATA 50,4,53,8,182,6,72,4 
DATA 0,0,53,8,182,6,64,4 
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KQ 858 DATA 1,4>72, 6, 8, 8, 68, 4 
VQ 868 DATA 1,8,64,0,182,6,53,3 
XL 878 DATA 58,4,68,8,182,8,47,4 
AJ 888 DATA 58,8,64,8,182,6,53,4 
KY 898 DATA 1,4,72,6,8,8,68,4 
LL 988 DATA 1,8,68,8,8,8,47,4 
TD 918 REH MEASURE 18 
IE 928 DATA 58,4,68,8,182,6,47,4 
CC 930 DATA 0,0,60,8,182,6,47,4 
KP 948 DATA 1,4,72,8,8,8,68,4 
MR 950 DATA 1,8,64,8,182,6,53,4 
KK 960 DATA 50,4,60,8,182,8,47,4 
AI 978 DATA 58,8,64,8,182,6,53,4 
OD 988 DATA 1,4,72,8,0,0,60,4 
OJ 990 DATA 1,0,72,8,0,0,68,4 
LL 1000 REM MEASURE 11 
or 1010 DATA 50,4,81,8,162,6,29,4 
HK 1020 DATA 0,0,81,8,162,6,57,4 
NY 1030 DATA 1,4,81,8,0,0,31,4 
FY 1040 DATA 1,8,81,8,162,6,64,4 
GE 1050 DATA 50,4,81,8,162,0,35,4 
KV 1060 DATA 50,0,81,8,162,6,72,4 
OJ 1070 DATA 1,4,81,8,0,0,40,4 
M 1080 DATA 1,0,81,8,0,0,81,4 
NF 1090 REM MEASURE 12 
NC 1100 DATA 50,4,91,8,162,6,45,4 
FS 1110 DATA 0,0,91,8,162,6,91,4 
tfC 1120 DATA 1,4,91,8,8,8,47,4 
|:i 1138 DATA 1,8,91,8,162,6,96,4 



A 

ATARI 

$49.95 



THE 
"BLACK PATCH" 

UNPROTECT favorite game / utilities disks witti any 
drive. , . no modifications necessary! Fast mactiine 
language program is totally automatic, no guesswork! 
Fast, simple, withi no tiardware modifications, copies 
will run on any computer, any drive [made for running 
Atari software]. 



A 

ATARI 

$49.95 



• FAST machine language 

• Supports multiple drives 

• Eliminates BAD sectors 

• Eliminates Custom formats 

• Copies con be recopied 

• Auto-formatting 



• IVIakes multiple copies 

• Copies Single or DOUBLE Density 

• Worl<s witti all Atari computers 

• Works witti ANY drive 

• Over 300 program patches 

• Additional Data Disks available 



There are several look-o-like programs available at cheap prices but NONE 
are as POWERFUL, versatile, and as easy to use as the BLACK PATCHI Utilizes 
extra memory in XL-XE computers. 



*9995 



THE "KLONE II!" 



»9995 



Convert your 1050 into a true DOUBLE DENSITY drive with FAST read/write 
capabilities and the COPYING power of the new HAPPY 7.0 Backup System 
(Happy 7,0 software included!), fvlake your 1050 drive fully compatible with 
all other 810 or 1050 Happy 7,0 drivesl Also compatible with the Happy 
Archiver disk! 



• Fast, easy installation 

• Hi-speed read/write 

• True DOUBLE DENSITY 

• HAPPY 7,0 compatible 



• HAPPY Archiver compatible 

• Copies 99% of all programs 

• Includes WARP SPEED Dos 

• Built in FILE maker! 



The "KLONE 11!" with the HAPPY System is the most POWERFUL, versatile, easy 
to use. economical, and RELIABLE backup device currently available! 

SEND OR CALL FOR OUR FREE catalog of special products and DISCOUNTS. 
Other products include: The Fuzzy/Phantom sector moker Archiver 
enhancement. Slow-it-down. Silencer Tranquilizer. ULTRA SPEED OS, Selector 
Ultra-Menu. XL/XE Fix. Diskcracker. Protector Super PILL, Impossible. 
Compore-if. fvliracle. Richmans 80 Column Work Processor Guardidn. XL- 
fvlate. Compactor and Impossible ddtd Andlyzer! 

DEALER/DISTRIBUTOR/USER GROUP Discounts avdilable. Coll for into! 



Master Card - Visa phone orders 
Money Orders - Check moil order 
Specify computer and drive' model 
numbers. Add $4 shipping/handling 
(N,Y, State residents add 7% tax) 

CIRCLE »II1 ON READER SERVICE CARD 



COMPUTER SOFTWARE SERVICES 

PO BOX 17660 
ROCHESTER. NY 14617 
(716) 467-9326 



GB 1140 
RE 1150 
«T 1160 
MM 1170 
NX 1180 
CO 1190 
VH 1200 
LV 1210 
VV 1220 
ME 1230 
ZX 1240 
HK 1250 
KN 1260 
OP 1270 
YC 1280 
PK 1290 
ZZ 1300 
OZ 1310 
RS 1320 
VL 1330 
AL 1340 
YO 1350 
PH 1360 
TO 1370 
LD 1380 
XA 1390 
K5 1400 
NG 1410 
OZ 1420 
HK 1430 
UN 1448 
PZ 1450 
PO 1460 
HG 1470 
TH 1480 
KX 1490 
JE 1500 
MX 1510 
SR 1520 
QU 1530 
QR 1540 
PJ 1550 
HC 1560 
TB 1570 
HI 1580 
KB 1590 
MS 1600 
SL 1610 
QO 1620 
RJ 1638 
PI 1648 
HB 1650 
TA 1660 
H5 1670 
KA 1680 
XT 1690 
SK 1700 
QH 1710 



DATA 50,4,81 
DATA 50,0,91 
DATA 1,4,91, 
DATA 1,8,91, 
REM MEASURE 
DATA 58,4,96 
DATA 8,0,96, 
DATA 1,4,96, 
DATA 1,8,96, 
DATA 58,4,96 
DATA 50,0,96 
DATA 1,4,96, 
DATA 1,8,96, 
REM MEASURE 
DATA 50,4,96 
DATA 8,8,96, 
DATA 1,4,96, 
DATA 1,8,96, 
DATA 50,4,96 
DATA 50,0,96 
DATA 1,4,96, 
DATA 1,0,96, 
REM MEASURE 
DATA 50,4,76 
DATA 0,0,76, 
DATA 1,4,76, 
DATA 1,0,76, 
DATA 50,4,76 
DATA 50,0,76 
DATA 1,4,76, 
DATA 1,0,76, 
REM MEASURE 
DATA 50,4,64 
DATA 8,0,64, 
DATA 1,4,64, 
DATA 1,0,64, 
DATA 50,4,64 
DATA 50,0,64 
DATA 1,4,64, 
DATA 1,0,64, 
REM MEASURE 
DATA 50,4,53 
DATA 0,8,53, 
DATA 1,4,53, 
DATA 1,8,53, 
DATA 58,4,53 
DATA 50,0,53 
DATA 1,4,53, 
DATA 1,0,53, 
REM MEASURE 
DATA 50,4,53 
DATA 0,0,53, 
DATA 1,4,53, 
DATA 1,0,53, 
DATA 50,4,53 
DATA 50,0,53 
DATA 1,4,53, 
DATA 1,0,53, 



8,162 
,8,162 
8,8,0, 
8, 0, 0, 
13 



1,8,192 
8,192, 
8,0,0, 
8,192,. 
.,8,192 
i,8,192 
8,8,0, 
8,8,0, 
14 



2,0,53,4 
2,6,108,4 
-60,4 
121,4 



»,8,192 
8,192, 
8,8,0, 
8,192, 
i,8,192 
1,8,192 
8,8,0, 
8,0,0, 
15 



,6,0,0 

6,8,0 

0,0 

6,0,0 

,0,0,0 

,6,0,0 

0,0 

0,0 

,6,76,4 

6,76,4 

76,4 

6,76,4 
i, 0,76, 4 
^6,76,4 
,76,4 

76,4 



1,8,192 
8,192, 
8,8,0, 
8,192, 
,8,192 
,8,192 
8,8,0, 
8,0,0, 
16 

1,8,192 
8,192, 
8,8,8, 
8,192, 

1,8,192 

1,8,192 
8,0,0, 
8,0,0, 
17 

1,8,192 
8,192, 
8,0,0, 
8,192, 
,8,192 

;,8,192 
8,8,8, 
8,8,8, 
18 

:,8,192 
8,192, 
8,8,8, 
8,192, 

;,8,192 

;,8,192 
8,8,8, 
8,8,0, 



,6,64,4 

6,64,4 

64,4 

6,64,4 

,0,64,4 

,6,64,4 

64,4 

64,4 

*,6,53,4 

6,53,4 

53,4 

6,53,4 
>,e,53,4 
:,6,53,4 

53,4 

53,4 

t,6,45,4 
6,45,4 
45,4 
6,45,4 
,0,45,4 

:,6,45,4 
45,4 
45,4 

t,6,45,4 

.6,45,4 

,45,4 

,6,45,4 

^0,45,4 

^6,45,4 

45,4 

45,4 
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Avatex 1200 modem 



E+E DATA COMM 
2115 Ringwood Avenue 
San Jose, CA 95131 
(408) 288-8880 
$99.00 to $128.00 



by Jason Leigh 



Ava-who? I have to admit, Avatex is a 
name not many Ataii modem users recog- 
nize. It's one I vifQuldn't have known, if it 
weren't for the persistent mentioning of it 
by my computer colleagues. What sur- 
prised me most was the price I got from 
E + E Data Comm— only $99.00! 

When the modem first arrived, I was 
skeptical. Would it be reliable, or even at- 
tractive (kind of like a blind date)? But as 
soon as I got the modem up and running, 
all doubts faded. The Avatex 1200-baud 
Hayes-compatible modem offers most of 
the features found on a standard Hayes 
modem, but for one-third the price. The 
Avatex comes with an external power sup- 
ply, a manual and a CompuServe subscrip- 
tion package, including four hours of free 
connect time. 

The modem circuitry is housed in an at- 
tractive white case, with a full complement 
of status lights. These LEDs indicate the 
current status of the communications link. 
The modem supports automatic tone or 
pulse dialing, automatic answering, dis- 
connect and self test. The back panel re- 
veals a set of dip switches which allow you 
to select the option you need to get the 
modem working with your particular ter- 
minal program. 



In addition, there's an RS232c port, and 
an input and output phone connector. The 
RS232C port makes the Avatex compatible 
with any computer currently on the mar- 
ket; all that's needed is an appropriate in- 
terface. The Atari 520 and 1040STs already 
have a built-in RS232 port, so this modem 
can be connected directly to the computer, 
via a $15.00 DB25P to DB25P cable. 

The instruction manual is brief, but con- 
tains sufficient information to get you 
started. It includes short program listings 
in BASIC and notes on how to operate the 
modem for Atari, IBM PC, Apple II and 
Commodore 64 computers. The self-test 
operations are well documented, so you 
can easily troubleshoot any problems you 
may encounter. If problems persist, or if 
you have any questions you'd like answer- 
ed before purchasing the modem, you can 
call E + E Data Comm for technical assis- 
tance at 1-800-4-AVATEX. 

At the price, this modem is a break- 
through in the current, increasing need for 
low-cost, high-speed telecommunications. 
I recommend it. H 

]ason Leigh is a junior in Computer 
Science at the University of Utah. In his 
spore time, he enjoys writing for ANALOG 
Computing, and is now a part-time soft- 
ware developer for Zobian Controls. 



SCHEDULED ATARI FAIRS 

MAY 8 & 9, 1987 
DALLAS, TEXAS* 

InfoMart 

1950 Stemmons Freeway, Dallas, TX 

For further info, write to: 

RO. Box 851872, RIcliardson, TX 75085-1?72 

MAY 16 & 17, 1987 
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Seattle Center, FLAG Pavllllon, Seattle, WA 
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MUSICIANS 

Turn the Atari ST, a MIDI 
Keyboard, and Midisoft " 

Studio software Into 

your own state-of-the-art 

recording studio. 



Record and play in real-time or note- 
by-note, manipulate 32 tracks at one 
time, maneuver or erase phrases of 
music. Create tunes within minutes. 
Midisoft" Studio makes those com- 
plicated and expensive music pro- 
grams obsolete. 
DEMO KIT $10 
(206)827-0750 V ^^/VISA 



■sivniJKijasa 




II CORPORATION 








P.O. BOX 1000. BELLEVCJE, WA 980o» 
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REVIEW 






; Professional Solutions: 



MT C-SHELL The Only Unix-Uke Multi- 
tasking. Mullmser TOS Compatible Oper- 
ating System Has Electronic Mail. Print 
Spooling, supports Networking! Too 
much to mention here. Runs TOS pro- 
grams. Two User System Only J1Z9.95I 
Additional Unix-style loolsKlSiOn-lme 
manual sysfem J19.95 Make ulitity 134.95 
MICflO C'SHELL the lull leaiuied shell that 
started it all. New improved i'ersion. Now 
works-wilh MWC! Still Only 149,95 
HARD OISK ACCELEHATOH make your ST's 
disk up to three times lasler J39,95 

VSH HjnjQBr a GEM interlace to be used 
with MT C-Shell Run a visual C-Shell in 
one window and a GEM application in 
another simultaneously J34.95 
Anil Tsf m professional terminal emulator 
tor the ST Using ANSI X3.64 protocol, 
with automatic lile transfer and printing. 
XMODEM. ASCII text. Kermil. and Compu- 
Serve 'B' protocols available JZ4.95 
Hard Qlik TduIKII a stand-alone hard disk 
utility package Includes a fast, reliable 
back-up program and other useful func- 
tions. :2g.9& 



fl.e.S. 415.452.4792 415.452.1129 



CardWare 
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24500 Glenwood Hwy., Los Galos. CA 95030 

* Modem Sale 

Avatex XZOO 
$8S,9S 

Avatex izoohc 

.4_ $119.95 . 

Instant shipping (or as !ast as we can). Mastercard & 
Visa accepted (no extra charge). Shipping & handling 
add 6%. Calilornia cuslomers add 6.5% sales tax. Order 
by phone (Mon. - Fn. 10 am - 5 pm PST). Order by 
modan} (daily 6 pm-9am} (rom our online TeleCaialog. 
Prices subject lo change without notice. 

(408) 353-1836 
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HI TECH EXPRESSIONS, INC. 

2699 South Bayshore Drive 

Suite 1000A 

Coconut Grove, FL 33133 

48K $9.95 

Supports: 

Epson LX80, MX80, MX100 

Okidata 192, 193, 92, 93 

Panasonic 1090, 1091 

Star Gemini SG-10 and Gemini 

by Jay Pierstorff 

CardWare is a greeting card maker that's 
actually two programs in one. It will cre- 
ate an animated, musical birthday story 
using anyone's name and age. !t will also 
make up greeting cards of different styles 
and designs on graphics-capable dot-ma- 
trix printers. 

Musical Message is the first program on 
the disk. It runs a four-and-a-half minute 
birthday show, alternating graphics and 
text screens with musical accomparument. 

Your Musical Message can be viewed 
from the main disk, or saved to a blank 
disk and sent as a floppy birthday greet- 
ing. Now you know what to expect for your 
birthday! 

CardWare also contains an all-occasion 
card maker for use with a graphics print- 
er. You can type in three lines of twenty 
characters each, to define youi' occasion or 
message. Then you select from four V-i- 
page graphics for the card's cover. Choose 



The PROBURNER a Professional Quality EPROM/EEPROM Programmer 
For the ATARI 400/800 and XL/XE Series. "Best eprom burner on 

ALL OF THIS IN A CARTRIDGE the market" — ANTIC 

• EPROM types: 2716, 2732, 2732A, 2764, 27128, 2532; EEPROM ;- 

types: 281 6A, 52B23, 2864A; ROMS: 2K to 8K types. -' '''^?S^ 

■ Contains a 4K ROM — no disk Is required. This firmware is "User C 
friendiy" for manual-free operation. 

• Run mode: Under program control up to 8K EPROM/EEPROM can 
be run as a standard cartridge. 

■ Talks to disk drive, cassette and printer or can be stand-alone. 

• Machine language monitor with: memory display and print (hex and 
ASCII), change, block move and run-from-address. 

PROBURNER 

nr PROBURNER $149 

Add $2.50 for shipping and send check or money order to: THOMPSON ELECTRONICS i, 

7 Jackes Ave., Suite 502, Toronto, Ontario, M4T 1E3, CANADA 

1074 Kensington Ave., Suite 188, Buffalo, NY, 14215 

For C.O.D. orders phone: (416) 960-1089 Atari is a trademark of Atari Corp. 
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a teddy bear, rocking horse, birthday cake, 
or toy train. The printed result is folded 
into four sections to make a greeting card, 
with the gi'aphic on the cover and the mes- 
sage inside. 

A full-page graphic with a three-line 
message at the bottom may be printed, too. 
There are three scenes to choose from: a 
village scene, toy shop, or jolly baker with 
(you guessed it) a birthday cake. 

Since this is Hi Tech's first Atari entry, 
there are bound to be a few problems. A 
nasty bug locked up my 130XE when creat- 
ing a floppy birthday card. Loading the 
translator disk solved the problem. Not as 
serious — but equally annoying — are the 
eight (count 'em) disk swaps required to 
create a birthday disk! 

Unfortunately, two-drive systems are not 
supported. Files created using CardWare 
aren't in standard DOS format, so no oth- 
er files may reside on the created birth- 
day disk, and you won't be able to include 
any of your own. The music could use a 
little work. The songs play nicely, but only 
two of the Atari's foirr voices are used. 

There isn't a scrap of documentation 
included — and you won't need any, either. 
Just follow the menus and boot the trans- 
lator to create musical messages. 

CardWare is a good first effort for Hi 
Tech. I won't throw away my copies of The 
Print Shop or Typesetter but CardWare is 
also now a permanent resident in my disk 
library. H 

]ay Pierstorff is a professional musician 
who plays guitar and sings with the fifties 
group. Rocky and the Revellettes. He has 
been an Atari enthusiast since 1983. His 
primarj' interests are music and graphics 
programs, but he does enjoy a "shoot-fem- 
up" now and then. 
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LOWEST PRICES ANYWHERE - BEST SERVICE 
LUCKY 







SEVEN 



30% OFF LIST 

ON 

XL/XE SOFTWARE 



— ATARI XL/XE — 

DEALER 



WE ARE YOUR ATARI CONNECTION 
/A 1 /\l\l Computer Hardware 

At 7% Over Dealer cost 
Plus FREE SHIPPING 

FULL MANUFACTURER'S WARRANTIES 

IMMEDIATE REPLACEMENT on 



YOU 
PAY 



ALL DOA DEFECTS 



800XL (limited qtys) $ 70 

96 

134 

134 

119 

102 

184 

184 

40 

80 

Call 



65XE 
130XE .. 
1050 .... 
1027 . . . . 

850 

XMM801 
XDM801 
XM301 . . 
8X212 .. 



89 
125 
125 
111 
95 
172 
172 
37 
75 



GUARANTEE 

We Guarantee our Prices to be the 

LOWEST Anywhere 

If You See any Item Advertised in 
this Issue for Less than our Price 

We Will MATCH that Price - 

and Give you FREE Shipping 



XED80 TBA 



CERTIFIED CHECK OR MONEY ORDER ONLYi 
NO CREDIT CARDS OR COD AT THESE PRICES 



INTERFACES 

PR:CONN $58 

XETEC 40 

MICROPRINT 33 

SUPRA 1150 45 

CABLES 

PRINTER 12 

MODEM 12 

SERIAL I/O 9 

MONITOR 6 

DISKS 

(BOX OF TEN) 

5.25 SS, DD 8 

5.25 DS, DD 10 

(INCLUDES JACKET, 
HUB RING & TABS) 

DISK HOLDERS 

FLIPSORT 70 10 

FLIPSORTllO 14 

JOYSTICKS 

CX30 6 

WICOMAX 9 

WICO BOSS 13 

WICO BAT 17 

WICO 3-WAY 20 

SLIKSTIK 6 

KRAFT SWITCH 9 

TAG 2 11 

TAC 3 13 

TAC 5 14 

500XJ 13 

QUICKSHOT 2 9 

SUNCOM ECONO ... 5 



ACCESSORIES 

TOUCH TABLET . . $43 
ANIMATION STAT . . 55 

AT LIGHT PEN 38 

ATARILAB START . . 40 

LIGHT MODULE 30 

HAPPY MODIF 130 

HAPPY CHEERUP. . . 35 
HAPPY CONTROL . . 30 

US DOUBLER 30 

R-TIME 8 45 

RAMBO XL 35 

NEWELL 256XL 30 

256K MEM CHIP 4 

SUR SUPP 6 OUT ... 20 

AC STRIP 6 OUT 15 

PRINTER STAND ... 10 
SPARTA DOS X 50 

COVERS 

800XL 6 

65XE 6 

130XE 6 

1050 6 

MONITOR 10 

MODEMS 

SUPRA 300AT 40 

SUPRA 1200AT 199 

ATARI 300 40 

ATARI 1200 80 

AVATEX 1200 80 

AVATEX1200HC. . . 120 

HAYES 12000 370 

HAYES 2400 550 

CAPETR 1200HC ... 115 
COURIER 2400 399 

DISK/MONITOR 
CLEANING KIT 14 



PRINTERS 
EPSON 
LX86 $220 

TRACTOR 30 

FX86E 380 

FX286E 550 

LQ800 480 

TRACTOR 45 

CS FEEDER 95 

LQIOOO 700 

TRACTOR 55 

EX800 450 

COLOR OPT 70 

EXIOOO 600 

COLOR OPT 70 

PANASONIC 

10801 

10911 

10921 



210 
250 
350 

STAR MICRONICS 

NPIO 180 

NXIO 230 

NX15 340 

SIEKOSHA 

SPIOOOA 180 

OKIDATA 

182P 195 

192+P 350 

193+P 530 

PROWRITER 

C310XP 490 

C315XP 590 

193+P 530 

MONITORS 

12" GREEN 80 

13" COM COLOR . . 160 

1702 190 

1802 210 



XL/XE SOFTWARE 

ATARIWRITER+ ... $29 

LOGO 19 

BASIC-REV C 19 

MS BASIC II 24 

ASSEM/EDITOR 24 

MACROASSEM 24 

BASIC XE 56 

BASIC XL 42 

MAC65 56 

ACTION TOOL 21 

MAC65 TOOL 21 

PRINT SHOP 32 

PS COMPANION 25 

PS LIB #1 18 

PS LIB #2 18 

PS LIB #3 18 

TYPESETTER 25 

RUBBER STAMP 21 

QWIK PIX PC 25 

PAGE DESIGNER ... 21 

SYNCALC 35 

SYNFILE+ 35 

SYNCALC TEMP ... 14 

MUSIC STUDIO 25 

B-GRAPH 28 

HOMEPAK 14 

PAPERCLIP W/SP ... 42 

VIDEO TITLE 21 

CUT & PASTE 11 

HOME ACCOUNT . . 28 

VIDTEX 28 

FIN COOKBOOK ... 11 

MOONMIST 28 

HW HYJINKS 28 

BALLYHOO 28 

ML BASEBALL 28 



XL/XE SOFTWARE 

LB GOLF 28 

LB GOLF TOUR#l . . 14 

TRIPLE PAK 14 

FIGHT NIGHT 21 

HARDBALL 21 

CC ROAD RACE 18 

GHOSTBUSTERS ... 21 

F15 STRIK EAG 24 

SILENT SERVICE ... 24 

GUNSHIP 24 

SPY VS SPY 1&2 11 

MILLIONAIRE 14 

TYCOON 14 

KARATEKA 21 

ALT REAL: CITY 28 

BRUCE LEE 14 

MERCENARY 21 

NEVER ENDING 21 

THEATRE EUROPE.... 28 

GOONIES 14 

ZORRO 14 

AGE OF ADVENT ... 11 

ARCHON 11 

ARCHON 2 28 

CHICKAMANGA 28 

CHESS 2000 11 

ONE-ON-ONE 11 

LORDS OF CONQ . . 28 

MO MONSTERS 11 

ROMMEL 30 

ULTIMA 3 40 

ULTIMA 4 45 

SUMMER GAMES ... 14 
WORLD KARATE ... 21 

MRCA MACH II 18 

LEATHER GODDES . . .28 
ZORK TRILOGY 48 



SIDE-LINE COMPUTER 

86 RIDGEDALE AVENUE 

CEDAR KNOLLS, NJ 07927 



NO TELEPHONE ORDERS 

CALL FOR PRICING OF OTHER ITEMS 
(201) 455-7844 



WE DO NOT CARRY CLOSEOUT OR DISC ITEMS - APO & FPO CHARGED ACTUAL SHIPPING 
NJ RESIDENTS ADD 6% SALES TAX - FREE SHIPPING IN CONTINENTAL UNITED STATES 
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TEDIT 




A sweet little text editor. 



by Bryan Schappel 



Well, someone had to do it. Someone had to write a text 
editor for the 8-bit Atari, one you could type in and get 
a lot of use out of . . . and that someone was me. 

In the last few years, quite a few compiled languages 
have become available for the 8-bit Atari. Some of these 
are Deep Blue C, Kyan Pascal, Draper Pascal, and DVC/65. 
All these programs require you to create your source code 
with a text editor, load the compiler, compile the source 
code, and go back to the editor to fix your mistakes. If 
you're like me, the only text editor you have is AtariWriter. 
That means you have to plug in the cartridge, boot up, edit 
your text, save it, remove the cartridge, load the compil- 
er, and so on. Not only is this process tedious and time 
consuming, it also puts plenty of wear and tear on your 
computer. 

I bet you thought, "Gee, it sure would be nice to have 
a little text editor that you could binary load from DOS, 
do a little editing and, with the touch of two keys, pop 
back into DOS again. That would certainly make life a lot 
easier." 

Well, I thought so, too. And, as I thought these sick 
thoughts, my mind kept screaming, "Why don't you write 
a text editor?" So I did. I now offer you T:EDIT (short for 
Text EDITor). 

Some of the things my mind told me T:EDIT must do 
were. . . [1) this editor must be a full-scrolling screen edi- 
tor Hke those other fancy editors; (2) it had better have 



a lot of commands, or else; and, finally, (3] it has to he 
easy to use. So, to appease my mind, I made TiEDIT do 
all these things and a little more. 

Typing it in. 

Listing 1 is the BASIC data used to create the TEDIT. 
COM file. For those of our readers interested in the as- 
sembly language source code of this program, the listing 
is available on the disk version of this magazine, or on the 
ANALOG Computing Atari Users' Group SIG on the Del- 
phi network. 

Please refer to M/L Editor on page 10 for tjrping instruc- 
tions. When you've typed the listing, the resultant file 
should be named TEDIT.COM. 

To use T:EDIT, after creating the TEDIT.COM file, sim- 
ply turn your computer off, remove all cartridges (on XL 
and XE computers, hold down OPTION while booting up) 
and follow these loading instructions. 

If you're using ATARI DOS 2.0s, type L and RETURN, 
then type TEDIT.COM and RETURN. TiEDIT will load and 
run automatically. 

From OSS OS/A+ DOS or from SpartaDOS, simply type 
TEDIT and hit RETURN. The program will load and run 
automatically. 

The program resides in cartridge slot A memory loca- 
tions ($A000 - $BFFF) and uses addresses $BCOO - $BFFF 
as screen memory. This was done to allow the maximum 
amount of text space on a 48K Atari. The amount of free 
space varies on each computer and with each DOS. With 
SpartaDOS version 2.3e, you get 37120 bytes of text space. 
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Table 1. — The commands. 



TEXT COMMANDS 

Key Function 

aL Load a text file 

aS Save a text file 

aP Print a text file 

aN/I Print to any device 

aX Disk directory 

aF Global searcfi and replace 

aC Erase text in memory 

Al Toggle insert mode 

aO Stiow "false" spaces 

aE Erase spaces 

aK Change ctiar case (aCAPS) 

aR Reverse two characters 

aQ Quit T:EDIT and enter DOS 

AN Count w/ords in text 

TAB Insert five spaces 

DS Delete bacl< one character 

aDS Delete one character 

A > Insert one space 

SH > Insert 255 spaces 

SHDS Delete 1 screen line 

CURSOR CONTROLS 
Key Function 

A+ Ivlove 1 character to left 

A * Move 1 character to right 

A- IVIove up one screen line 

A= Move down one screen line 

aT Jump to top of text 

aB Jump to bottom of text 

aA Jump to beginning of line 

aZ Jump to end of line 

aW Jump one word to the right 

aU Jump up 1 screen of text 

aD Jump down 1 screen of text 

aH Home cursor to upper left 



The screen editor. 

T:EDIT is a screen-oriented text editor, very much hke 
AtariWriter. Because it's screen oriented, T:EDrr gives you 
a very natural programming environment. The screen edi- 
tor in TrEDIT uses a word-wrap routine, so that none of 
the words will be broken on the right margin. This meth- 
od is similar to that of most word processing packages, 
and makes the screen much easier for the user to read and 
comprehend. 

The editing screen is twenty lines high and thirty-eight 
characters across. There are three lines at the bottom of 
the screen used to display information and ask for input. 
The first of the three lines is the cursor line. It contains 
the row and column position of the cursor on the editing 
screen, and the number of free bytes left for new text. The 
two following lines are the input/output lines used to dis- 
play messages. 

You may enter almost any character you wish into youi 
docimient, except a few. No control characters are permit- 
ted, as they're reserved for commands; CTRL-COMMA, 
CTRL-PERIOD, CTRL-SEMICOLON and CTRL-CLEAR are 
not allowed. Uppercase, lowercase and all inverse video 
keys are allow^ed. 

If you must insert any control characters into your text, 
you can do so by pressing SELECT and the key you want 
as a control. This method will only work for letters, such 
as CTRL-A. While in the editor, all control characters ap- 
pear in a "tech-computer" font; these are larger and easy 
to distinguish from normal text. 



ANALOG COMPUTING 



MAY 1987 / PAGE 45 




T:EDIT 



continued 



Command description. 

To use one of the conunands in Table 1, simply type the 
correct key combination, given under the heading Key. In 
the table, the A character indicates that the CONTROL key 
is pressed with the letter after the A. SH indicates that 
you press and hold SHIFT; DS stands for DELETE-BACK- 
SPACE key; and < and > are the CLEAR and INSERT 
keys, respectively. 

Before I describe all the commands, I'd like to tell you 
how to abort most. With any command that asks you for 
keyboard input, simply press the ESC key. The command 
will abort, and you can continue to edit your text. Some 
commands will ask you, Are you sure - YJN? The only 
key that will give a yes response is Y key; any other key 
is taken as a no. 

Load a text file (aL). This command allows you to load 
any standard ATASCII text file into memory. You'll be 
prompted for a filename, and, after you enter this, the cur- 
rent text file will be erased and the new file loaded. Once 
the loading begins, eill text in memory is lost forever. If 
the load was successful you can edit the file. Otherwise, 
the message LOAD FILE ERROR will appear, and you must 
press a key to continue. 

Save a text file (AS). This command permits you to save 
the text in memory to disk. You're asked for a filename, 
then the save begins. If the save is successful, you can con- 
tinue to edit text; otherwise, the message SAVE FILE ER- 
ROR will appear, and you must press a key to continue 
to edit your text. This command will overwrite a disk file 
if it already exists, so be sure you've typed the correct 
filename. 

Print a text file (aP). This command will print the file 
in memory to your printer, in 80-column format. If your 
printer's not on-line, the message PRINTER ERROR will 
appear at the bottom of the screen, and you must press 
a key to continue editing. Pressing BREAK during print- 
ing will halt the printing and force a PRINTER ERROR. 

The print function will produce formatted output with 
no broken words on the right margin. It will skip the per- 
forations between pages and number each page in the up- 
per left-hand corner. 

The print function will work on any 80-column print- 
er, since it doesn't send any control codes to the printer. 
Because of this, you must have the paper at the top of form 
before you start printing, or else the page breaks won't be 
in the right places. If the end of text is reached before the 
end of a page, the print function will form feed to the top 
of the next page for you. 

Since you can load any text file into T:EDIT, the print 
routine must be able to print anything. If you load a file 
from AtariWriter into T:EDIT it's embedded with various 
control characters having some meaning to AtariWriter — 
but none to TiEDIT. So the print routine will simply print 
all control characters as inverse uppercase characters. On 
most printers, these characters will come out as italics. 

Print to Device (AM). This function is exactly the same 
as the print command, except that the text may be sent 
to any Atari device (barring only the E: and S: devices). 



This is an extremely powerful feature, allowing one to 
make formatted disk files of text for uploading to the Del- 
phi Atari User's Group. These files can then be download- 
ed and printed to any 80-column printer, with the DOS 
copy function. 

Disk Directory (aX). When you select this command, 
you are asked: DIRECTORY FOR DRIVE - [1-2-3-4-8]? Re- 
spond by typing one of the numbers in the brackets (press- 
ing any other key will abort). Then the screen will clear, 
and the directory of the chosen drive will be printed to 
the screen in two-column format. 

If the directory's longer than one screen, the message 
DIRECTORY PAUSED - PRESS A KEY will appear. Sim- 
ply press any key (ESC to abort), and the screen will clear. 
The remaining portion of the directory will be displayed. 

When the end of the directory is reached, the message 
DIRECTORY FINISHED - PRESS A KEY will appear Just 
press a key to continue to edit your text. 

If you attempt to get a directory from a drive that doesn't 
exist — or you press BREAK while the directory's being 
read, or you have no disk in the drive — you'll get a DIREC- 
TORY ERROR. When you get this error, simply press any 
key to continue editing your text. 

Global Search and Replace (aF). When this is execut- 
ed, you're asked FIND WHAT? Respond with a string up 
to twenty-four characters in length and press RETURN. 
If the program finds the string, the screen will move to 
the beginning of the string, and the string's first character 
will be highlighted in inverse video. Then you're asked 
REPLACE STRING - Y/N? If you wish to do so, respond 
by pressing Y; otherwise, hit any other key to abort. If you 
pressed Y, you're asked REP. WITH? Type in your replace- 
ment string, up to twenty-four characters, and press RE- 
TURN. The program will then begin to replace aJI 
occurrences of the search string. Once a replace starts, it 
can't be stopped until it ends, so be careful. The search/re- 
place will begin at the current cursor position and con- 
tinue until the end of text is reached. 

Erase text in memory (AC). This command will wipe 
out text currently in memory. You're asked if you're sure 
about the erase. If you say yes, the document in memory 
is erased and you may enter a new one. Once text is 
erased, you can't recover it. 

Toggle Insert Mode (Al). T:EDIT has two modes of oper- 
ation, "replace" and "insert." Replace is the default mode. 
The insert mode is useful, but can get very slow if you're 
inserting at the top of a long document. To tell which mode 
you're in, the cursor line will be blue for replace mode 
and red for insert mode. 

Show "false" spaces (aO). Pressing this key will cause 
any space used to word wrap the screen to appear as a 
small dot. Pressing it again will make all "false" spaces 
blanks again. This is a very useful command. It shows you 
which spaces are yours and which are generated for the 
word wrap's sake. 

Erase spaces (aE). This function will erase all spaces, 
from the cursor to the next non-space character. You'll see 
the use of this command later. 
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Change character case (aK or aCAPS key). Pressing this 
key will cause the character under the cursor to be changed 
to uppercase if it was in lowercase, and vice versa. After 
this command executes, the cursor moves one character 
to the right. 

Reverse two characters (aR). This command is for all 
the people out there who just love to make transposition 
errors. When you use it, the character under the cursor 
will be swapped with the character to the right of the 
cursor 

Quit T:EDIT (aQ). This command will exit you back to 
DOS. It will also erase your text, so you're asked if you're 
sure. If you answer yes, you'll go to DOS. 

To re-enter T:EDIT from Atari DOS 2 .Os, you can either 
reload it or perform a RUN AT ADDRESS, with the ad- 
dress being 9FFD. From OSS OS/A+ or from SpartaDOS, 
typing RUN or RUN 9FFD at the Dl: prompt will restart 
f:EDIT. 

Count Words in text (aN). When you press AN, T:EDIT 
will count all the words in your text and display the num- 
ber on the first I/O line at the bottom of the screen. This 
is a true word count, not faked by counting spaces and 
dividing by two, hence it's accurate to within one word 
of the actual number of words in memory. When the pro- 
gram is through counting, you're asked to press a key. Do 
so and you may edit more text. 

Insert five spaces (TAB). Pressing the TAB key will in- 
sert five spaces into the text at the cursor position (not 
tab across the screen). This can be useful if you're in re- 
place mode and want some space to insert a new word. 
The program can insert five spaces in the same amount 
of time it can insert one space, so this can be quite a time 
saver. 

Delete back one character (DS). Pressing DELETE- 
BACKSPACE will delete the character to the left of the cur- 
sor and move the rest of the document up. Again, this can 
be slow with large documents. 

Delete one character (ADS). This deletes the character 
under the cursor and moves the rest of the document up. 

Insert one space (A>). This will move the document 
down and insert a space under the cursor. 

Insert 255 spaces (SH-). If you must have a lot of room 
for new revisions, this is how you get it. The command 
will insert 255 spaces from the cursor's position — in the 
time it takes to insert one space. If you find that you don't 
need all this space, simply press aE to remove the remain- 
ing spaces. 

Delete one screen line (SHDS). This will delete text from 
the cursor position to the end of the line the cursor's sit- 
ting on. Usually, this is anywhere between one and twen- 
ty characters. 

A note about deleting text: text deleted is lost forever. 
Since the deletions are usually rather small, this doesn't 
cause too many problems. However, care should be taken 
before deleting anything. 

Cursor movement. 

T:EDIT uses the arrow keys (A+, A*, A-, A = ) to move 



the cursor around the screen, much like the normal screen 
editor — with a few variations. 

If you're at the bottom of the screen and try to go fur- 
ther down, a new line of text will appear. The same goes 
for trying to cursor off the top of the screen. If you try to 
go past the left margin, you wind up on the last character 
of the previous line. If you cursor past the last character 
on a line, the cursor is placed on the first character of the 
next line. There are other ways to move the cursor around 
within the document. 

Jump to TOP of text (AT). This will place the cursor at 
the top of your text. The cursor is also in the "home" po- 
sition. (The home position is the upper left corner of the 
screen). 

Jump to BOTTOM of text (aB). This will move the cur- 
sor to the end of the document. It's placed after the last 
character in the document. 

Moving on the line (aA, aZ). aA will place the cursor 
on the first character on the screen line. aZ will place the 
cursor on the last. 

Jump one word to the right (aW). This will move the 
cursor to the next word in the document. The command 
was included as a replacement for the TAB fimction. 

Moving by screenfuls (aU, aD). Pressing aU will send 
the cursor home and move it back nineteen lines of text. 
Pressing AD will move the cursor home, then bring it for- 
ward nineteen lines. 

Homing the cursor (aH). aH will move the cursor to the 
home position. 

That finishes up the commands for T:EDIT. Now we'll 
look at some of the program's technical aspects. 

Entering filenames. 

T:EDIT allows you to load or save text from any disk 
drive or device. When you select either SAVE or LOAD, 
you're asked for a filename. You can respond in many 
ways. Here are some examples: 

(1) filename.ext RETURN 

(2) d2:filename.ext RETURN 

(3) C: RETURN 

(4) E:filename.ext 

In example (1), you simply enter a filename. T:EDIT will 
default to using drive 1 as the device. In (2), you speci- 
fied drive number and filename; therefore, T:EDIT will 
use this device and name. In (3), we specified the device 
as the cassette drive. In (4), we tried to load/save text to 
the screen editor. If you try this to either the E: or S: 
devices, T:EDIT defaults to the D: device. This makes 
T:EDIT extremely powerful. So, if you want a simple rough 
text printout, just save it to the printer (P:). You won't get 
any page breaks or page numbers, but it can be useful. 

T:EDIT has a smart filename handler. If your filename 
has any lowercase, control or inverse characters, they'll all 
be converted to normal video uppercase characters. Since 
you may enter up to twenty-four characters for a filename, 
the program can access text files stored in subdirectories 
with SpartaDOS or MYDOS version 4.0, thus making 
T:EDIT easier to use. 
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Technical notes. 

The program uses a custom display list and display list 
interrupts (DLIs) to produce an attractive screen. The 
blinking underline used for the cursor was quite a little 
task to code. 

The cursor works this way: 

(1) We figure out which character's under the cur- 
sor and copy its definition to another character [in this 
case, character 127). 

(2) Then we replace the character under the cursor 
with character 127. 

(3) Now, simply blink the eighth bit in character 127 
with an EOR #$FF. By doing this, you get a nice lit- 
tle cursor that looks really neat on a character with 
a descender, like a y or g. 

All the text is stored in memory in internal code, for 
speed. If we store all text in internal code, there's no time 
needed to convert a screenful of text each time we redraw 
the screen. When text is saved, it's saved in ATASCII. 

You'll notice that the DLIs don't flicker during I/O oper- 
ations. This is because the immediate mode vertical blank 
is used to copy the screen color shadow registers into their 
corresponding hardware registers. 

I've found T:EDIT a very useful utility to have around. 
I hope you get as much use from it as I have. H 

Bryan SchappeJ is a Computer Science major at the 
University o/ Wisconsin. He's been programming the Atari 
for four years. Besides writing programs, his main com- 
puter interests are word processing and data management. 

Listing 1. 
M/L Editor data. 



1008 DflTft 255,255,253,159,133,183,76,1 

03, 188, 0,0, 0,8,0,0,8,7899 

1018 DATA 0,0,24,24,24,24,8,24,8,8,182 

,182,182,8,0,0,5306 

1020 DATA 0,0,102,255,102,182,255,182, 

0,24,62,96,68,6,124,24,1251 

1830 DATA 0,0,102,108,24,48,182,70,0,2 

8,54,28,56,111,102,59,9416 

1040 DATA 0,0,24,24,24,8,8,8,0,8,14,28 

,24,24,28,14,3118 

1050 DATA 0,8,112,56,24,24,56,112,8,8, 

182,68,255,60,102,0,689 

1060 DATA 0,0,24,24,126,24,24,0,0,0,0, 

0,0,0,24,24,2914 

1070 DATA 48,0,0,0,126,0,0,0,0,0,0,0,0 

,0,24,24,2492 

1080 DATA 0,0,6,12,24,48,96,64,0,0,68, 

102,118,118,182,68,194 

1898 DATA 0,0,24,56,24,24,24,126,0,0,6 

0,102,12,24,48,126,7938 

1100 DATA 0,0,126,12,24,12,102,60,0,0, 

12,28,60,108,126,12,7754 

1110 DATA 0,0,126,96,124,6,102,68,8,8, 

68,96,124,182,182,60,1064 

1120 DATA 0,8,126,6,12,24,48,48,8,8,68 

,182,68,182,182,60,9028 

1138 DATA 8,8,68,182,62,6,12,56,8,8,8, 

24,24,8,24,24,3948 

1148 DATA 8,0,0,24,24,0,24,24,48,6,12, 

24,48,24,12,6,3864 

1150 DATA 8,0,0,126,0,0,126,0,0,96,48, 

24,12,24,48,96,7060 

1160 DATA 0,0,60,102,12,24,0,24,0,0,60 

, 102, 110, 110, 96, 62, 9430 



1170 DATA 0,0,24,60,102,102,126,182,0, 

0,124,102,124,102,102,124,3444 

1188 DATA 8,8,68,102,96,96,182,68,8,0, 

120, 188, 182, 182, 188, 128, 2928 

1198 DATA 8,0,126,96,124,96,96,126,0,0 

,126,96,124,96,96,96,3298 

1200 DATA 0,0,62,96,96,110,102,62,0,8, 

102, 102, 126, 102, 102,102,2694 

1210 DATA 0,0,126,24,24,24,24,126,8,0, 

6,6,6,6,102,60,5914 

1220 DATA 8,0,102,108,128,120,108,182, 

8,0,96,96,96,96,96,126,3106 

1230 DATA 0,8,99,119,127,187,99,99,8,8 

,102,118,126,126,118,182,3987 

1248 DATA 8,8,68,182,182,182,182,68,8, 

8,124,182,182,124,96,96,2778 

1258 DATA 8,8,68,182,182,182,188,54,0, 

0,124,102,102,124,108,102,3058 

1260 DATA 0,8,68,96,68,6,6,68,8,8,126, 

24,24,24,24,24,5748 

1278 DATA 8,8,182,102,102,182,182,126, 

0,0,102,102,102,102,60,24,1212 

1280 DATA 0,0,99,99,107,127,119,99,0,0 

,102,102,60,60,102,102,2023 

1290 DATA 0,0,102,102,60,24,24,24,0,0, 

126,12,24,48,96,126,8778 

1300 DATA 0,0,30,24,24,24,24,38,8,8,64 

,96,48,24,12,6,5250 

1310 DATA 0,0,128,24,24,24,24,120,8,0, 

8,28,54,99,0,0,5670 

1320 DATA 8,8,8,8,8,8,8,255,8,8,0,0,0, 

0,0,0,3360 

1330 DATA 8,63,51,51,127,115,115,115,0 

, 126, 102, 102, 127, 103, 103, 127, 5139 

1340 DATA 0,127,103,103,96,99,99,127,0 

,126,102,102,119,119,119,127,5734 

1350 DATA 0,127,96,96,127,112,112,127, 

0,127,96,96,127,112,112,112,5552 

1360 DATA 0,127,99,96,111,183,183,127, 

8,115,115,115,127,115,115,115,5826 

1378 DATA 8,12,12,12,12,68,60,60,8,12, 

12,12,14,14,118,126,7238 

1388 DATA 8,102,182,188,127,183,183,18 

3,0,48,48,48,112,112,112,126,3424 

1390 DATA 0,103,127,127,119,103,103,18 

3,8,183,119,127,111,183,183,103,5184 

1400 DATA 8,127,99,99,183,183,183,127, 

8,127,99,99,127,112,112,112,5455 

1418 DATA 8,127,99,99,183,183,183,127, 

7,126,182,182,127,119,119,119,5982 

1420 DATA 8,127,96,127,3,115,115,127,8 

,127,28,28,28,28,28,28,8534 

1430 DATA 8,103,103,103,103,103,103,12 

7,0,103,103,103,103,111,62,28,2897 

1440 DATA 0,103,103,103,111,127,127,10 

3,0,115,115,115,62,103,103,103,4633 

1450 DATA 0,103,103,103,127,28,28,28,0 

,127,102,108,24,55,103,127,1947 

1460 DATA 0,0,0,0,0,0,0,8,0,0,24,60,12 

6,24,24,24,5162 

1470 DATA 0,0,24,24,24,126,60,24,0,0,2 

4,48,126,48,24,0,6636 

1480 DATA 0,0,24,12,126,12,24,0,0,255, 

231,207,129,207,231,255,2165 

1490 DATA 0,0,0,60,6,62,102,62,0,0,96, 

96,124,102,102,124,2104 

1500 DATA 0,0,0,60,96,96,96,60,0,0,6,6 

,62,102,102,62,8842 

1510 DATA 0,0,0,60,102,126,96,60,0,0,1 

4,24,62,24,24,24,5496 

1520 DATA 0,0,0,62,102,102,62,6,124,0, 

96,96,124,102,102,102,2898 

1530 DATA 0,0,24,0,56,24,24,60,0,0,6,0 

,6,6,6,6,3088 

1540 DATA 60,0,96,96,108,120,108,102,0 

,0,56,24,24,24,24,60,7976 

1550 DATA 0,0,0,102,127,127,107,99,0,0 

,0,124,102,102,102,102,2300 
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1568 DATA 0,8,8,60,102,162,102,60,8,0, 

0,124,102,102,124,96,1754 

1570 DATA 96,0,0,62,102,102,62,6,6,8,8 

,124,182,96,96,96,706 

1588 DATA 0,8,8,62,96,68,6,124,8,8,24, 

126,24,24,24,14,6718 

1590 DATA 8,0,0,182,182,102,102,62,0,8 

,0,102,102,102,60,24,9592 

1600 DATA 0,0,8,99,187,127,62,54,8,8,8 

,102,60,24,68,182,9031 

1618 DATA 0,0,0,102,102,182,62,12,128, 

0,0,126,12,24,48,126,9498 

1620 DATA 0,0,8,8,8,0,0,8,8,24,24,24,2 

4,24,24,24,3804 

1630 DATA 24,0,96,112,124,124,112,96,8 

,0,8,0,8,8,8,8,5386 

1640 DATA 8,8,0,0,0,0,0,8,6,112,112,11 

2,66,0,188,2,9046 

1650 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2, 

2,2,1922 

1666 DATA 2,2,176,194,35,164,16,2,2,65 

,0,164,0,0,0,8,6893 

1670 DATA 35,47,44,26,8,16,18,0,0,8,58 

,47,55,26,8,16,4706 

1680 DATA 16,0,0,0,38,50,37,37,26,8,16 

,16,16,16,16,8,4615 

1696 DATA 6,8,8,6,8,8,8,8,8,8,8,8,8,8, 

0,0,1696 

1700 DATA 8,8,0,8,8,8,8,8,6,8,8,8,8,8, 

6,6,1766 

1718 DATA 8,8,8,8,8,6,8,8,6,8,8,8,6,8, 

6,6,1718 

1720 DATA 0,8,8,0,8,8,8,8,8,8,8,8,8,8, 

6,6,1728 

1730 DATA 6,8,6,8,8,8,8,6,8,8,8,8,8,8, 

6,0,1736 

1740 DATA 0,8,8,8,255,254,253,159,158, 

157, 156, 155, 127, 126, 125, 31, 9936 

1750 DATA 38,29,28,27,64,8,32,96,32,64 

,6,96,144,2,76,79,9726 

1760 DATA 65,68,32,70,73,76,69,58,155, 

83,65,86,69,32,70,73,1640 

1770 DATA 76,69,58,155,80,82,73,78,84, 

32,68,69,86,58,155,70,2832 

1780 DATA 73,78,68,32,87,72,65,84,63,1 

55,82,69,80,46,32,87,1738 

1790 DATA 73,84,72,58,155,68,73,82,69, 

67,84,79,82,89,32,70,1904 

1800 DATA 79,82,32,68,82,73,86,59,32,9 

1,49,45,58,45,51,45,9455 

1810 DATA 52,45,56,93,63,155,68,73,82, 

69,67,84,79,82,89,32,1992 

1820 DATA 80,65,85,83,69,68,32,45,32,8 

0,82,69,83,83,32,65,533 

1830 DATA 32,75,69,89,155,68,73,82,69, 

67,84,79,82,89,32,76,2000 

1840 DATA 73,78,73,83,72,69,68,32,45,3 

2,80,82,69,83,83,32,531 

1850 DATA 65,32,75,69,89,155,68,73,82, 

69,67,84,79,82,89,32,2110 

I860 DATA 69,82,82,79,82,155,82,69,80, 

76,65,67,69,32,83,84,2054 

1870 DATA 82,73,78,71,32,45,32,89,47,7 

8,63,155,81,85,73,84,2420 

1880 DATA 32,69,68,73,84,79,82,155,69, 

82,65,83,69,32,77,69,2010 

1890 DATA 77,79,82,89,155,88,82,73,78, 

84, 32, 84, 69, 88, 84, 155, 3911 

1900 DATA 83,65,86,69,32,73,47,79,32,6 

9,82,82,79,82,155,76,2786 

1910 DATA 79,65,68,32,73,47,79,32,69,8 

2,82,79,82,155,80,82,2946 

1920 DATA 73,78,84,69,82,32,69,82,82,7 

9,82,155,80,97,103,101,4267 

1930 DATA 32,35,32,32,32,32,155,33,50, 

37,0,57,47,53,0,51,7630 

1940 DATA 53,50,37,8,13,8,57,15,46,31, 

87,79,82,68,32,67,8987 



1950 DATA 79,85,78,84,58,32,48,48,48,4 

8,48,155,69,58,155,80,2585 

1968 DATA 58,155,49,50,51,52,56,68,49, 

58,68,49,58,42,46,42,9239 

1970 DATA 155,5,84,26,69,68,73,84,0,13 

,8,97,8,48,114,111,9879 

1988 DATA 163,114,97,169,8,52,161,126, 

116,8,37,108,185,116,111,114,4146 

1998 DATA 255,255,14,55,114,165,116,11 

6,101,118,0,34,121,26,255,255,8216 

2000 DATA 11,34,114,121,97,110,8,48,14 

,0,51,99,104,97,112,112,2491 

2010 DATA 101,168,255,255,7,8,99,9,8,1 

7,25,24,22,8,65,78,8262 

2628 DATA 65,76,79,71,6,35,111,189,112 

,117,116,105,118,163,255,255,168 

2630 DATA 12,13,0,48,114,101,115,115,0 

,97,0,43,101,121,0,13,9862 

2040 DATA 253,0,96,123,125,12,19,20,2, 

21,4,3,16,17,126,28,7155 

2050 DATA 29,30,31,254,255,1,23,26,18, 

157,127,15,8,9,156,5,857 

2668 DATA 6,11,24,14,13,237,169,233,16 

8, 218, 168, 176, 176, 194, 173, 252, 5955 

2076 DATA 172,54,168,96,169,137,168,62 

, 172, 116, 173, 49, 173, 38, 172, 29, 7577 

2686 DATA 172,49,172,42,171,186,176,11 

9,176,199,176,228,170,61,171,67,1458 

2698 DATA 171,243,172,212,178,221,176, 

226, 173, 52, 174, 156, 174, 218, 175, 119, 483 

1 

2188 DATA 178,96,176,64,169,168,8,152, 

153,8,188,153,8,189,153,8,6497 

2116 DATA 198,268,268,244,168,31,153,8 

, 191, 136, 16, 258, 96, 168, 79, 169, 9989 

2126 DATA 6,153,75,164,136,16,258,96,1 

68,39,208,243,166,39,169,8,8796 

2138 DATA 153,115,164,136,16,258,96,14 

1,26,167,146,27,167,32,255,166,9797 

2146 DATA 168,8,185,255,255,261,155,24 

6,9,32,71,186,153,77,164,268,1436 

2158 DATA 268,248,96,173,252,2,261,255 

, 248, 249, 162, 255, 142, 252, 2, 133, 5561 

2168 DATA 146,162,126,72,142,31,208,17 

3, 11, 212, 265, 11, 212, 246, 251, 262, 4751 

2178 DATA 262,16,241,164,168,192,192,1 

44,2,168,154,177,121,133,147,201,2323 

2180 DATA 128,248,208,201,129,208,9,16 

5,148,73,128,133,148,76,42,167,8848 

2190 DATA 201,130,208,9,165,149,73,64, 

133,149,76,42,167,201,131,208,358 

2200 DATA 6,169,64,133,149,208,172,201 

,132,208,5,169,11,133,147,96,9178 

2218 DATA 261,133,246,159,165,146,281, 

64,176,19,165,147,281,97,144,13,9345 

2228 DATA 281,123,176,9,165,149,248,5, 

5, 146, 76, 75, 167, 162, 15, 189, 7599 

2238 DATA 155,164,197,147,248,3,282,16 

,246,248,4,165,147,69,148,133,515 

2246 DATA 147,96,164,128,268,132,158,3 

2,229,182,173,258,183,141,44,164,3158 

2258 DATA 173,251,183,141,45,164,165,1 

29,133,158,32,229,182,173,258,183,4777 

2266 DATA 141,54,164,173,251,183,141,5 

5,164,76,98,228,72,138,72,166,127 

2278 DATA 151,268,8,165,175,246,4,169, 

66,208,3,189,179,164,141,10,9089 

2280 DATA 212,141,24,208,230,151,184,1 

70,104,64,169,0,133,151,160,3,7548 

2290 DATA 185,196,2,153,22,208,136,16, 

247,165,170,208,31,230,138,165,2495 

2300 DATA 138,201,16,208,12,173,255,16 

3,73,255,141,255,163,169,0,133,2338 

2310 DATA 138,165,172,240,7,164,171,16 

9,63,153,88,164,76,95,228,165,1233 

2320 DATA 141,240,12,169,127,168,165,3 

2,14,167,32,97,168,144,1,96,5722 

2336 DATA 168,8,132,141,132,144,288,13 
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2,129,132,128,32,226,166,172,232,3179 

2348 DATA 2,280,132,145,32,244,170,76, 

244,166,32,3,167,160,18,185,9025 

2350 DATA 206,165,153,117,164,136,16,2 

47,32,42,167,41,127,201,91,144,8788 

2360 DATA 3,56,233,32,201,89,240,5,32, 

244,166,56,96,32,244,166,9799 

2370 DATA 24,96,169,115,160,165,32,14, 

167,32,97,168,144,3,76,244,7543 

2388 DATA 166,104,104,169,7,160,98,162 

,228,32,92,228,169,6,160,95,9040 

2390 DATA 162,228,32,92,228,169,64,141 

,14,212,162,0,169,12,141,66,6766 

2400 DATA 3,32,86,228,162,0,169,3,141, 

66,3,169,12,141,74,3,2932 

2410 DATA 142,75,3,169,243,141,68,3,16 

9,165,141,69,3,32,86,228,6923 

2420 DATA 108,18,0,165,144,133,139,133 

,152,165,145,133,140,133,153,76,165 

2430 DATA 77,179,165,141,208,1,96,169, 

192,160,164,32,14,167,32,181,8406 

2440 DATA 177,32,155,172,169,8,133,173 

,32,240,176,48,42,162,16,165,7936 

2450 DATA 144,157,68,3,165,145,157,69, 

3,56,165,134,229,144,157,72,8980 

2460 DATA 3,165,135,229,145,157,73,3,1 

69,11,32,4,178,48,8,32,1965 

2470 DATA 19,177,198,170,76,161,172,16 

9,151,160,165,32,14,167,32,19,6481 

2480 DATA 177,32,42,167,198,178,76,161 

,172,155,141,208,1,96,169,203,1730 

2490 DATA 160,164,32,14,167,32,181,177 

,169,8,133,173,32,240,176,48,9164 

2500 DATA 23,16,37,165,141,240,32,169, 

140,160,165,32,14,167,32,97,6658 

2510 DATA 168,176,20,32,29,177,16,16,3 

2,19,177,169,181,168,165,32,6698 

2520 DATA 14,167,198,170,76,42,167,96, 

169,1,133,196,165,144,133,136,389 

2530 DATA 165,145,133,137,32,75,178,48 

,223,165,196,133,158,32,229,182,2430 

2540 DATA 173,252,183,24,185,32,141,20 

2,165,173,250,183,24,105,32,141,9861 

2550 DATA 203,165,173,251,183,24,105,3 

2,141,204,165,160,0,132,157,185,863 

2560 DATA 195,165,153,159,183,201,155, 

240,3,200,208,243,32,83,178,48,1553 

2570 DATA 167,32,75,178,48,162,32,233, 

175,48,157,165,197,201,255,240,5840 

2580 DATA 6,165,157,208,241,240,173,16 

5,157,240,6,32,75,178,76,222,1817 

2590 DATA 169,198,178,76,19,177,169,18 

1,160,164,32,14,167,32,181,177,9523 

2600 DATA 169,4,133,173,32,240,176,48, 

81,32,244,170,162,16,165,142,9934 

2610 DATA 157,72,3,165,143,157,73,3,16 

9,7,32,4,178,48,59,162,4226 

2620 DATA 16,189,72,3,56,233,1,157,72, 

3,189,73,3,233,0,157,5629 

2630 DATA 73,3,165,144,125,72,3,133,13 

4,133,136,165,145,125,73,3,6712 

2640 DATA 133,135,133,137,32,19,177,23 

0,141,198,170,160,1,169,0,145,9081 

2650 DATA 136,200,208,251,32,161,172,7 

6,77,179,192,136,240,193,32,19,585 

2660 DATA 177,169,166,160,165,32,14,16 

7,198,170,76,42,167,166,128,202,1233 

2670 DATA 134,130,165,139,56,229,130,1 

33,139,165,140,233,0,133,140,96,478 

2680 DATA 160,0,177,139,240,8,201,96,2 

40,4,200,208,245,96,200,208,5103 

2690 DATA 10,230,140,165,140,197,135,1 

44,2,208,19,177,139,240,239,24,1786 

2700 DATA 152,101,139,133,139,165,140, 

105,0,133,140,76,225,181,165,134,1368 

2710 DATA 133,139,165,135,133,140,76,2 

25,181,169,0,133,152,165,135,56,115 

2720 DATA 233,4,197,145,176,2,165,145, 

133,153,32,77,179,76,165,170,9928 



2730 DATA 32,100,170,166,129,189,133,1 

83,168,136,76,150,170,165,152,133,2746 

2740 DATA 139,165,153,133,140,96,165,1 

75,73,1,133,175,96,160,0,177,8581 

2750 DATA 139,72,200,177,139,136,145,1 

39,200,104,145,139,96,165,144,133,1928 

2760 DATA 136,133,152,133,139,133,134, 

165,145,133,137,133,153,133,140,133,17 

18 

2770 DATA 135,56,169,159,229,145,133,1 

43,170,169,0,133,142,160,255,198,4145 

2780 DATA 137,145,136,289,230,137,145, 

136,200,208,251,230,137,202,208,246,95 

56 

2790 DATA 145,136,96,169,1,133,176,169 

,0,133,177,32,101,171,169,0,7461 

2800 DATA 168,145,139,76,225,181,169,2 

55,133,176,208,15,169,5,133,176,1916 

2810 DATA 32,82,171,177,139,208,1,200, 

76,150,170,169,0,133,177,32,8888 

2820 DATA 101,171,169,0,168,166,176,14 

5,139,200,202,208,250,96,24,165,3561 

2830 DATA 134,101,176,165,135,101,177, 

201,159,144,3,104,104,96,24,165,8330 

2840 DATA 139,133,178,181,176,133,180, 

165,140,133,179,101,177,133,181,56,198 

2850 DATA 165,134,229,178,133,182,165, 

135,229,179,133,183,32,164,171,24,1845 

2860 DATA 165,134,101,176,133,134,165, 

135,101,177,133,135,96,165,183,170,278 

9 

2870 DATA 5,182,208,1,96,24,138,181,17 

9,141,207,171,165,178,141,206,3663 

2880 DATA 171,24,138,101,181,141,210,1 

71,165,180,141,209,171,232,164,182,669 

3 

2890 DATA 288,4,240,13,160,255,185,255 

,255,153,255,255,136,192,255,208,842 

2900 DATA 245,206,207,171,206,210,171, 

202,208,234,96,165,178,141,1,172,4268 

2910 DATA 165,179,141,2,172,165,180,14 

1,4,172,165,181,141,5,172,166,984 

2920 DATA 183,248,30,169,0,133,184,168 

,0,185,255,255,153,255,255,200,8014 

2930 DATA 196,184,288,245,238,2,172,23 

8,5,172,224,0,240,7,202,208,3213 

2940 DATA 226,165,182,208,224,96,238,1 

39,288,2,230,140,76,225,181,165,4887 

2958 DATA 139,288,2,198,148,198,139,76 

,225,181,32,29,172,32,71,172,8888 

2968 DATA 32,38,172,32,98,172,96,32,71 

,172,32,38,172,76,98,172,6851 

2970 DATA 56,165,139,229,144,133,130,1 

65,140,229,145,5,130,208,3,104,9953 

2980 DATA 104,96,165,139,133,178,165,1 

40,133,179,96,56,165,139,133,188,2016 

2990 DATA 73,255,101,178,133,188,165,1 

40,133,181,73,255,101,179,133,189,4364 

3000 DATA 56,165,134,229,180,133,182,1 

65,135,229,181,133,183,230,182,288,774 

3010 DATA 2,230,183,32,226,171,165,134 

,56,229,188,133,134,165,135,229,4731 

3020 DATA 189,133,135,96,169,0,133,190 

,240,4,169,128,133,190,165,144,2323 

3030 DATA 133,136,165,145,133,137,56,1 

65,135,229,137,170,232,160,0,177,2849 

3040 DATA 136,72,165,190,240,23,104,20 

1,155,208,4,169,96,208,34,201,1682 

3050 DATA 127,208,4,169,125,208,26,32, 

71,180,76,232,172,104,201,96,894 

3060 DATA 208,4,169,155,208,11,201,125 

,208,4,169,127,208,3,32,80,7717 

3070 DATA 180,145,136,200,208,201,230, 

137,202,208,196,96,173,4,162,73,2809 

3080 DATA 16,141,4,162,96,32,212,170,1 

60,0,165,152,24,121,134,183,9577 
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3898 DATA 133,152,133,139,165,153,105, 

0,133,153,133,140,288,192,19,288,1731 

3100 DATA 233,165,135,197,140,144,18,2 

48,2,176,9,165,134,197,139,144,1156 

3118 DATA 3,75,176,170,32,77,179,76,22 

5,181,32,108,170,166,129,165,1452 

3120 DATA 139,24,125,133,183,133,139,1 

65,148,105,0,133,140,224,20,208,710 

3130 DATA 30,138,72,165,128,72,165,152 

,24,109,134,183,133,152,165,153,1511 

3140 DATA 105,0,133,153,32,77,179,184, 

133,128,104,133,129,162,19,189,9434 

3150 DATA 134,183,197,128,144,2,165,12 

8,168,136,76,158,178,32,188,170,50 

3168 DATA 166,129,224,1,240,19,202,202 

,165,139,56,253,134,183,133,139,3654 

3170 DATA 165,140,233,0,133,140,76,102 

,173,32,166,173,166,139,134,152,1492 

3180 DATA 166,140,134,153,197,128,144, 

2,165,128,168,136,76,150,170,32,9812 

3190 DATA 212,170,32,242,179,132,130,1 

92,255,208,1,96,165,139,56,229,3872 

3200 DATA 130,133,139,155,140,233,0,13 

3,140,152,96,169,0,133,157,32,8428 

3210 DATA 166,173,165,139,133,152,165, 

148,133,153,238,157,165,157,281,19,342 

8 

3220 DATA 208,237,76,225,181,32,2,174, 

32,199,178,165,191,56,229,134,2587 

3230 DATA 133,138,165,192,229,135,5,13 

8,176,56,165,139,56,229,134,133,1615 

3240 DATA 130,165,140,229,135,5,130,24 

0,21,208,13,165,139,133,188,133,1468 

3250 DATA 191,165,140,133,181,133,192, 

96,238,139,288,2,238,148,56,165,2748 

3260 DATA 139,133,178,229,191,133,188, 

165,148,133,179,229,192,133,189,32,451 

6 

3270 DATA 119,172,165,191,133,139,165, 



192, 133, 140, 76, 225, 181, 165, 139, 133, 419 

3288 DATA 136,133,180,165,140,133,137, 

133,181,168,0,177,136,208,25,288,2811 

3298 DATA 288,249,165,137,197,135,144, 

12,165,134,133,136,165,135,133,137,288 

8 

3388 DATA 168,8,240,4,238,137,283,227, 

24,152,181,136,133,178,169,8,675 

3318 DATA 101,137,133,179,56,165,134,2 

29,180,133,182,165,135,229,181,133,557 

6 

3328 DATA 183,56,165,178,229,188,133,1 

88,165,179,229,181,133,189,238,182,818 

5 

3338 DATA 288,2,230,183,32,226,171,56, 

165,134,229,188,133,134,165,135,3965 

3348 DATA 229,189,133,135,96,169,214,1 

60,164,32,14,167,32,46,177,144,9131 

3350 DATA 1,96,165,171,133,193,160,44, 

185,159,183,153,253,183,136,16,3268 

3368 DATA 247,32,234,174,281,255,248,2 

4,169,93,160,165,32,14,157,32,9296 

3378 DATA 111,168,176,12,169,225,168,1 

64,32,14,167,32,46,177,144,1,6921 

3380 DATA 96,32,234,174,165,195,201,25 

5,240,246,32,91,175,32,225,181,5438 

3390 DATA 76,216,174,165,139,133,136,1 

65,140,133,137,160,0,162,0,189,154 

3480 DATA 253,183,32,71,188,209,136,24 

8,5,224,8,288,248,282,200,288,6482 

3418 DATA 18,230,137,165,137,197,135,2 

40,2,176,68,232,228,193,208,223,7347 

3420 DATA 24,152,101,136,133,130,165,1 

37,105,0,133,131,165,134,197,130,1327 

3430 DATA 165,135,229,131,144,41,56,16 

5,130,229,193,133,139,133,194,165,4152 

3440 DATA 131,233,0,133,140,133,195,32 

,225,181,168,8,177,139,73,128,673 
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3450 DflTfl 145,139,32,77,179,169,9,177, 

139, 73 , 128 , 145 , 139, 152 , 96, 169, 756 

3460 DATA 255,133,195,96,56,165,139,13 

3, 180, 229, 194, 133, 130, 165, 140, 133, 4125 

3470 DftTfl 181,229,195,5,130,208,97,169 

,255,133,195,24,165,193,101,139,3287 

3480 DftTft 133,178,169,0,101,140,133,17 

9,56,165,134,229,189,133,182,165,4132 

3490 DftTft 135,229,181,133,183,230,182, 

208,2,230,183,165,193,197,171,240,8374 

3500 DftTft 27,32,226,171,56,165,134,229 

,193,133,134,165,135,233,0,133,2659 

3510 DftTft 135,155,171,133,176,169,0,13 

3,177,32,101,171,160,0,185,159,453 

3520 DftTfl 183,32,71,180,145,139,200,19 

6,171,208,243,24,165,139,101,171,4149 

3530 DftTfl 133,139,165,140,105,0,133,14 

0,76,225,181,160,0,177,139,41,9636 

3540 DftTft 63,201,33,144,10,201,59,176, 

6,177,139,73,64,145,139,76,8149 

3550 DflTfl 29,172,32,119,182,160,0,177, 

136,201,96,240,25,153,163,183,2791 

3560 DftTfl 200,192,78,144,242,132,197,1 

77,136,240,11,136,208,249,164,197,6906 

3570 DftTft 200,177,136,240,1,136,132,19 

7,152,56,101,136,133,136,165,137,1784 

3580 DATA 105,0,133,137,160,0,185,163, 

183,32,80,180,72,41,127,201,9669 

3590 DATA 32,176,13,24,105,192,170,104 

,138,201,192,208,2,169,155,72,1537 

3600 DATA 104,153,163,183,200,196,197, 

208,221,169,155,153,163,183,32,83,4159 

3610 DATA 178,48,21,56,165,136,229,134 

,133,130,165,137,229,135,5,130,1465 

3620 DATA 144,4,169,255,133,197,169,0, 

96,165,144,133,136,165,145,133,2404 

3638 DATA 137,169,0,133,166,133,167,16 

9, 225, 160, 165, 32, 14, 167, 32, 165, 250 

3640 DATA 176,144,21,160,0,185,30,165, 

201,155,240,9,32,71,180,153,112 

3650 DATA 95,164,200,208,240,76,42,167 

, 230, 166, 208, 2, 230, 167, 32, 171, 3377 

3660 DATA 182,160,4,185,245,183,153,89 

,164,136,16,247,48,208,160,0,932 

3670 DATA 177,136,41,127,240,4,201,96, 

208,11,200,208,243,230,137,32,3773 

3680 DATA 220,176,144,236,96,32,210,17 

6,160,0,177,136,41,127,240,11,284 

3690 DATA 201,96,240,7,200,208,243,230 

,137,208,239,152,24,101,136,133,4280 

3700 DATA 136,144,2,230,137,165,136,56 

, 229, 134 , 133, 130, 165, 137, 229, 135 , 4207 

3710 DATA 5,130,144,2,240,1,96,24,96,3 

2,19,177,230,170,162,16,8058 

3720 DATA 169,3,157,66,3,169,42,157,68 

,3,169,184,157,69,3,165,7610 

3730 DATA 173,157,74,3,169,0,157,75,3, 

76,86,228,162,16,169,12,6521 

3740 DATA 157,66,3,76,86,228,160,2,185 

,246,165,153,42,184,136,16,470 

3750 DATA 247,169,8,133,173,288,194,16 

9,0,133,171,230,172,32,119,182,3066 

3760 DATA 32,42,167,201,27,208,4,198,1 

72,56,96,160,3,41,127,217,9250 

3770 DATA 120,166,240,236,136,16,248,1 

65,147,201,126,208,32,198,171,16,2942 

3780 DATA 4,169,0,133,171,32,170,177,1 

65,171,240,212,164,171,192,24,4476 

3790 DATA 208,1,136,169,0,153,88,164,1 

53,89,164,240,195,201,156,240,6410 

3800 DATA 191,164,171,153,159,183,201, 

155,240,25,32,71,180,192,24,208,2314 

3810 DATA 1,136,153,88,164,200,192,25, 

144,1,136,132,171,32,170,177,897 

3820 DATA 76,55,177,173,159,183,201,15 

5,240,141,169,0,153,88,164,133,3007 

3830 DATA 172,24,96,165,171,208,6,141, 

88, 164, 141, 89, 164, 96, 32, 46, 8014 



3840 DATA 177,144,5,104,104,76,244,166 

,162,0,173,160,183,201,58,240,3932 

3850 DATA 22,173,161,183,201,58,240,15 

,160,2,185,254,165,153,42,184,2990 

3860 DATA 136,16,247,160,3,208,2,160,0 

,189,159,183,32,22,178,153,9643 

3870 DATA 42,184,281,155,240,6,200,232 

,224,25,208,237,173,42,184,201,6206 

3880 DATA 69,240,4,201,83,208,5,169,68 

,141,42,184,96,162,16,157,9255 

3890 DATA 66,3,165,144,157,68,3,165,14 

5,157,69,3,76,86,228,201,65 

3900 DATA 155,240,18,281,123,176,14,20 

1,97,144,3,56,233,32,201,32,8792 

3919 DATA 176,3,24,195,64,96,162,16,16 

9,9,157,66,3,169,159,157,8174 

3929 DATA 68,3,169,183,157,69,3,169,80 
,157,72,3,169,0,157,73,6643 

3930 DATA 3,76,86,228,32,119,182,169,1 
55,141,159,183,32,45,178,48,9989 

3940 DATA 30,230,157,165,157,291,62,14 

4,20,169,155,141,159,183,32,45,234 

3950 DATA 178,32,45,178,32,45,178,230, 

196,169,0,133,157,169,0,96,9548 

3968 DATA 169,236,160,164,32,14,167,32 

,42,167,160,4,217,249,165,240,3884 

3978 DATA 4,136,16,248,96,141,2,166,16 

0,6,185,1,166,153,42,184,9375 

3980 DATA 136,16,247,169,6,133,173,32, 

19,177,32,240,176,16,15,169,8474 

3990 DATA 77,160,165,32,14,167,32,19,1 

77,198,170,76,42,167,32,220,9697 

4000 DATA 166,169,2,24,105,0,133,154,1 

69,188,105,0,133,155,169,0,8284 

4018 DATA 133,198,133,157,32,47,179,48 

,77,160,0,185,159,183,201,155,2282 

4020 DATA 240,8,32,71,180,145,154,200, 

208,241,230,198,165,198,201,2,6256 

4838 DATA 144,12,169,0,133,198,230,157 

,165,157,201,20,240,16,165,154,3213 

4040 DATA 24,105,20,133,154,165,155,18 

5,0,133,155,76,203,178,169,13,372 

4058 DATA 160,165,32,14,167,32,42,167, 

201,27,240,20,169,236,160,164,2833 

4060 DATA 32,14,167,76,181,178,169,44, 

160,165,32,14,167,32,42,167,7964 

4070 DATA 32,19,177,198,170,76,220,166 

,162,16,169,5,157,66,3,169,8888 

4088 DATA 159,157,68,3,169,183,157,69, 

3,169,20,157,72,3,169,0,5697 

4090 DATA 157,73,3,76,86,228,169,2,24, 

105,0,133,154,169,188,105,9433 

4108 DATA 0,133,155,165,152,56,229,144 

,133,130,165,153,229,145,5,130,2652 

4118 DATA 176,8,165,144,133,152,165,14 

5,133,153,165,152,133,136,165,153,4187 

4128 DATA 133,137,162,1,168,0,177,136, 

153, 128, 5, 200, 201, 127, 208, 6, 863 

4130 DATA 134,129,132,128,165,174,41,1 

27,201,96,240,25,192,38,208,230,4139 

4148 DATA 136,177,136,41,127,281,127,2 

08,2,165,174,201,0,240,5,136,1201 

4150 DATA 208,239,168,37,288,132,138,1 

68,8,185,128,5,145,154,288,196,2941 

4168 DATA 138,288,246,24,152,101,136,1 

33, 136, 165, 137, 105, 0, 133, 137, 152, 912 

4178 DATA 157,133,183,192,38,248,8,169 

,64,145,154,288,76,282,179,24,1953 

4188 DATA 165,154,185,48,133,154,144,2 

,238,155,232,224,21,248,3,76,1495 

4198 DATA 123,179,165,136,133,132,165, 

137,133,133,96,165,139,197,144,208,503 

4 

4208 DATA 9,165,148,197,145,288,3,168, 

255,96,169,8,133,136,165,148,2483 

4218 DATA 56,233,4,133,137,197,145,176 

,8,165,144,133,136,165,145,133,2849 

4228 DATA 137,168,0,177,136,280,201,96 
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,248,15,192,38,298,245,136,177,5324 

4238 DATA 136,248,5,136,288,249,168,37 

,288,24,152,181,136,133,136,165,2589 

4248 DftTft 137,185,9,133,137,197,148,14 

4,216,165,136,197,139,144,218,96,5881 

4258 DATA 32,89,188,29,171,164,166,159 

,96,32,89,188,29,175,164,166,1583 

4268 DATA 158,96,72,42,42,42,42,41,3,1 

34,158,178,184,41,159,96,6974 

4278 DATA 216,169,8,133,138,133,175,13 

3,148,133,178,133,172,133,149,169,4298 

4288 DATA 34,141,47,2,169,7,168,185,16 

2,167,32,92,228,169,6,168,796 

4298 DATA 1,162,168,32,92,228,169,227, 

141, 9, 2, 169, 167, 141, 1, 2, 7585 

4388 DATA 169,192,141,14,212,169,4,141 

,198,2,169,9,141,48,2,169,7462 

4318 DATA 164,141,49,2,32,71,168,165,1 

21,5,122,288,6,169,254,133,1352 

4328 DATA 121,133,122,169,169,141,244, 

2,32,44,183,168,9,132,185,177,1235 

4338 DATA 139,133,174,16,2,198,185,41, 

127,133,186,132,187,6,186,38,158 

4348 DATA 187,6,186,38,187,6,186,38,18 

7, 165, 187, 24, 195, 168, 133, 187, 2996 

4358 DATA 169,7,177,186,69,185,153,248 

,163,136,16,246,32,186,183,168,3469 

4368 DATA 8,169,127,145,139,32,77,179, 

173,252,2,281,255,248,237,32,5778 

4378 DATA 49,167,178,169,8,132,185,165 

,174,145,139,138,168,8,148,31,299 

4388 DATA 288,172,31,288,192,5,288,36, 

138,16,4,168,128,132,185,41,8999 

4398 DATA 127,281,97,144,7,281,123,176 

,3,56,233,32,281,65,144,12,8785 

4488 DATA 281,91,176,8,56,233,64,69,18 

5,76,159,181,168,31,138,41,9687 

4410 DATA 127,281,28,144,1,138,217,124 

,166,248,5,136,16,248,48,31,9428 

4420 DATA 152,18,168,185,156,166,141,1 

83,181,185,157,166,141,184,181,32,3137 

4438 DATA 255,255,169,9,133,172,32,244 

,166,32,77,179,76,194,189,165,3428 

4448 DATA 141,288,2,239,141,165,147,29 

1,155,249,21,41,127,169,3,217,2181 

4458 DATA 128,166,248,5,136,16,248,48, 

3,76,194,180,201,32,144,249,2824 

4468 DATA 165,147,281,155,298,2,169,96 

, 72, 169 , 9, 177 , 139 , 291, 96, 249 , 3418 

4478 DATA 4,165,175,248,3,32,42,171,18 

4,32,71,189,168,8,145,139,8834 

4488 DATA 32,77,179,56,165,139,229,134 

,133, 139, 165, 149, 229, 135, 5, 138, 2775 

4498 DATA 144,12,165,139,185,8,133,134 

,165,148,185,9,133,135,238,139,1578 

4500 DATA 288,2,238,148,32,225,181,76, 

194,188,32,47,182,56,165,139,1658 

4510 DATA 229,152,165,148,229,153,176, 

24,56,165,152,229,144,133,130,229,5587 

4520 DATA 145,5,139,248,11,165,139,133 

,152,165,148,133,153,32,77,179,1717 

4530 DATA 56,165,132,229,139,133,136,1 

65, 133, 229, 140, 133, 137, 5, 136, 240, 4347 

4540 DATA 2,176,20,24,165,152,199,134, 

183,133,152,165,153,105,0,133,838 

4550 DATA 153,32,77,179,76,7,182,96,56 

,165,134,233,0,133,130,165,1054 

4560 DATA 135,233,159,5,138,144,8,169, 

8,133,134,169,159,133,135,56,262 

4570 DATA 165,139,229,144,133,138,165, 

148,229,145,5,130,176,9,165,144,2315 

4580 DATA 133,139,165,145,133,140,96,5 

6,165,139,229,134,133,130,165,140,3957 

4590 DATA 229,135,5,138,176,1,96,165,1 

34, 133, 139, 165, 135, 133, 148, 96, 1889 

4688 DATA 168,84,169,32,153,159,183,13 

6,16,258,96,165,166,133,168,165,4391 

4610 DATA 167,133,161,169,8,133,162,13 

3,163,133,164,133,165,248,168,16,3668 



4629 DATA 6,169,38,161,162,3,181,162,1 

17,162,149,162,282,288,247,136,6778 

4638 DATA 288,238,216,96,32,138,182,16 

8,9,162,9,185,163,9,32,216,9735 

4649 DATA 182,165,168,157,244,183,165, 

169,157,245,183,232,232,299,192,3,8513 

4659 DATA 298,233,168,5,185,244,183,24 

,195,16,153,244,183,136,16,244,3829 

4669 DATA 96,72,41,15,133,169,194,74,7 

4, 74, 74, 133, 168, 96, 165, 158, 429 

4678 DATA 168,8,132,159,148,252,183,29 

1,288,144,11,168,2,141,252,183,4952 

4688 DATA 56,233,288,76,9,183,291,199, 

144,8,169,1,149,252,183,56,1593 

4699 DATA 233,189,281,18,144,7,56,233, 

18,238,159,298,245,24,185,16,771 

4799 DATA 141,251,183,165,159,24,195,1 

6, 141, 259, 183, 173, 252, 183, 24, 185, 4890 

4718 DATA 16,141,252,183,96,162,2,169, 

234,157,191,188,282,16,258,169,6555 

4728 DATA 48,133,154,169,188,133,155,2 

32,189,8,166,168,281,255,248,17,6521 

4738 DATA 232,189,8,166,281,255,248,9, 

281,253,248,28,145,154,200,208,7903 

4749 DATA 239,165,154,24,195,49,133,15 

4,165,155,185,8,133,155,288,215,3444 

4758 DATA 76,42,167,169,8,56,229,134,1 

33,166,169,159,229,135,133,167,5256 

4768 DATA 32,171,182,168,4,185,245,183 

,153,65,164,136,16,247,96,226,4814 

4778 DATA 2,227,2,253,159,9,9,8,8,8,8, 

8,8,8,8,8,7839 
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bv D.F. Scott 



Newsivorthy happenings in the ST world. 



What price GDO$? 

This month, we focus again on GDOS 
(Graphic Device Operating System), that 
elusive, expensive, explosive 9K of code 
designed to handle multiple typeset fonts 
and shapes in the ST. Last February in 
ST notes, we told you Regent Software 
Pi'esident Frank Cohen was developing a 
public domain replacement for GDOS. 
and had begun a letter-writing campaign 
to Atari Corp. executives, including CEO 
Jack Tramiel, asking that the $500-per- 
year licensing fee not be imposed. 

Since then, numerous questions have 
been raised concerning GDOS's place 
and future as a part of the ST 
programming environment. First of all, 
since GDOS font-drivers can consume 
70K of code, is GDOS what we really 
want? If the final version of GDOS turns 
out to be superiorly executed code, will 
the licensing fee for all programmers 
who wish to incorporate it lock small 
developers out of the burgeoning 
desktop-publishing market? If GDOS is 
unacceptable, will Regent's RDOS — or 
any other replacement — be considered a 
suitable operating standard, so that other 
programs could use the same data 
produced by RDOS? If GDOS continues 
to be modified, will this prevent 
companies which have developed GDOS- 
incorporated software for the PCs (for 
instance, Ventura Graphics) from porting 
their products over to the ST? 

Such questions were discussed during 
a worldwride electronic conference 
conducted by ANALOG Publishing's 
Atari SIG over the Delphi network, and 
moderated and transcribed by Matthew 
J.W. Ratcliff (username: MATRAT). 
Featured conference guests were Frank 
Cohen (REGENTWARE); along with Tom 
Hudson (THUD), author of DEGAS Elite 



and CAD-3D; and Daniel L. Moore 
(DLM), author of PaperClip Elite and 
SynCalc. 

Dan Moore's description was that 
"GDOS is 'Graphics DOS' and is a part 
of the XnDI [Virtual Device Interface] 
system. It is supposed to supply device- 
independent graphics for all devices 
hooked up to the ST. A device can be 
the screen, a printer, a film plotter, a la- 
ser printer. With GDOS, it is possible to 
write a program that outputs graphics to 
a pen plotter without the program 
knowing what the device is, how the de- 
vice works, or information on that de- 
vice. That is the theory. In practice, 
things aren't quite that simple." 

Frank Cohen feels that the results of 
Atari's implementation of the Digital Re- 
search, Inc. code "have been less than 
satisfactory, considering DRI gave the 
original GDOS source [code] to Atari 
well over a year ago. and Atari has not 
firmly released it to date." He adds, 
"GDOS was important as an excuse for 
developers to get more time to develop 
products that approach [the quality of] 
those available on the Macintosh." 

I asked the guests how programmers, 
as private citizens, could provoke the 
changes needed to give GEM the solid 
feel of the Mac input/output system. 
Cohen replied first, "The VDI routines of 
GEM are comparable to the Mac toolbox, 
with the notable exception that the Mac 
OS has a very consistent design philo- 
sophy, making it really easy to use. The 
AES [Applications Environment Services] 
and GDOS parts of GEM are really 
where DRI's solution falls apart 
compared to the Mac solution. . .My 
personal feeling is that a complete 
rewrite of the AES and GDOS routines 
would bring us up to the Mac level." 



The VDI, among other things, takes 
care of general output to the screen or to 
individual windows; the AES keeps track 
of the identity of each window and of 
user input through particular locations of 
the screen. The AES handles "user 
events," like the clicking of the mouse 
button within a particular rectangle, 
through what's often called a "pipeline." 
Here, each event waits its turn on a first- 
come-first-served basis, and is analyzed 
upon request of the program. GDOS, as a 
part of VDI, is designed to treat graphic 
screen objects or fonts as files, called 
"metafiles," just as they would be if 
stored on disk — which can be done. 

Tom Hudson, who used GDOS for 
DEGAS Elite's fonts, said, "My primary 
experience with GDOS is in the area of 
fonts; and, frankly, font support is a joke. 
In a system that brags about ease of use. 
windows, etc., it's ridiculous to use the 
ASSIGN.SYS to load your fonts. That is 
my primary complaint. There should be 
a dynamic font loader/imloader and file 
selector." 

Dan Moore adds to the growing list of 
complaints that GDOS "is a major memo- 
ry hog. You really need a meg or two to 
handle having lots of printer and screen 
fonts loaded. On 520s, I end up having 
to dump almost everything to disk, free 
all my RAM, and then pull in data in 
small chunks from disk and use GDOS to 
output it. This isn't particularly fast. I 
wouldn't mind a replacement, but 
whose?" 

About metafiles, Moore adds that they 
are "inherently device-independent. They 
contain no info on the actual resolution 
of the device, other than saying that the 
program wants something with a given 
size so OUTPUTAPP can rescale it. The 
(continuf;d on page 66) 
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8-Bit 

MIDI Software 




Our favorite guitarist-turned-programmer 

gives you a comparative look at what's on the marlcet. 



by Charles F. Johnson 



With all the clamor about MIDI software for the ST, it's 
easy to forget there are some excellent MIDI packages for 
the Atari 8-bit line, as well. Of course, you don't have quite 
the same freedom of choice as you do on the ST; all of 
the 8-bit MIDI software seems to come from one compa- 
ny, Hybrid Arts. But the variety of programs they offer 
makes it easy to find the MIDI application you need, and 
their softw^are is of a uniformly high quality. 

The MidiMate interface. 

Since the Atari 800, 800XL and 130XE computers do not 
have MIDI ports as standard hardware, Hybrid makes the 
MidiMate MIDI interface box. This interface connects to 
the Atari serial port (the same port the disk drive uses). 
One minor annoyance is that it has no serial port exten- 
sion, so it must be the last thing in your I/O chain. The 
MidiMate provides MIDI IN and OUT DIN plugs, as well 
as SYNC IN and OUT 'A-inch phone plugs. The SYNC con- 
nections are used for synchronizing a MIDI sequencer to 
an external source (like the sync pulse generated by a 
drum machine), or for recording a sync tone on tape. None 
of the Hybrid Arts MIDI software will work without a 
MidiMate interface connected. 

MidiTrack II and MIdiTrack III. 

The Hybrid Arts 8-bit MidiTrack sequencers are power- 
ful programs with many professional features. MidiTrack 
n is the version which works on the 800 or 800XL with 
64K. For the 130XE, Hybrid makes MidiTrack III, which 
uses all of the 130XE's 128K memory to add many more 
features and a larger note storage capacity. Both sequenc- 
ers offer 16 tracks and tape-recorder-like operation, with 
step-time or real-time note entry, automatic time correc- 
tion [called "quantizing") and transposition. All MIDI data 



is recorded, including pitch wheel, mod wheel, breath 
controller, velocity, aftertouch and patch changes. In- 
dividual tracks can be turned on or off, and punch-in and 
punch-out points can be set. Punch-in and punch-out are 
the terms used to describe re-recording just a particular 
section of music, without doing the whole piece over. With 
MidiTrack, this whole process can be automated; you just 
play from the beginning (you can even play along), and 
the program automatically starts and stops recording at 
the times you set. 

MidiTrack HI has more sophisticated editing functions 
than does MidiTrack II, as well as the capacity to record 
more music. With MT III, you can define a section of a 
track and move it to another point in time on another 
track — very handy for repeating sections. There is a po- 
werful (and complex!) looping option, allowing for the 
construction of lengthy pieces from small sections. 

I must say that these are not the easiest programs in the 
world to learn. All commands are issued via the keyboard, 
with occasionally cryptic, non-mnemonic keys. For exam- 
ple, to save a track you've just recorded, you have to hit 
the SHIFT and INVERSE keys. I think the user interface 
of MidiTrack II/III could stand a bit of improvement in 
this respect; but overall, these sequencers perform well 
and have most (if not all] the necessary functions to cre- 
ate music easily and quickly. 

The MMS. 

Many of you are probably familiar with the Advanced 
Music System (AMS) by Lee Actor, originally marketed 
by the Atari Program Exchange. This music composition 
program uses the Atari's internal sound chip to create four- 
voice compositions, and is generally considered to be the 
best of its type. Hybrid Arts is now marketing a MIDI ver- 
sion of the program, called the MIDI Music System (or 
MMS). 
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The MMS is a single-step monophonic sequencer. This 
means that all music is entered one note at a time, and 
each track can only play one note at a time (no chords). 
You can easily build chords by layering different tracks 
on top of each other, however. With the MMS, notes can 
be entered either from the computer keyboard or from a 
MIDI synthesizer. 

The MMS uses a spreadsheet-style editing scheme, 
which can be both a help and a hindrance. It's fairly easy 
for the computer hobbyist to become accustomed to this 
method, but musicians without much computer experi- 
ence will probably find it a bit awkward at first. Once you 
do learn the technique, however, it turns out to be quite 
pleasant to use. Tempo changes and looping are support- 
ed, and you have 99 tracks to play with. (You'll need them, 
since you can't put chords on a single track.) 

If you already have a large library of music files creat- 
ed with the earlier non-MIDI AMS, you can convert them 
to MMS format with an included converter program. You 
won't believe how good some of those old AMS files can 
sound played on a MIDI synthesizer! 

This software would probably be best categorized as en- 
tertainment, rather than a professional tool; but if you want 
to get into MIDI and don't need (or want) everything that 
MidiTrack III offers, the MIDI Music System may be a 
good bet. 

Patch librarians. 

The great thing about modern synthesizers is the ease 
with which you can modify the sounds they make. It's pos- 
sible to build up large "libraries" of synth sounds (or 
"patches," from the days when people patched cords into 
sockets to change sounds) with the help of a program 
called a "patch librarian." The Hybrid Arts programs 
MidiPatch DX and MidiPatch CZ perform this function for 
Yamaha DX and Casio CZ synths. 

These programs do not allow you to edit and change 
sound parameters from the computer, but they do let you 
save and load patches to and from disk, give them names, 
change the order of patches in a bank, and perform other 
useful functions. MidiPatch DX and MidiPatch CZ are al- 
most identical in operation; both programs work quite 
well. 

Hybrid also offers a program called DX Editor, which 
has all the functions of MidiPatch DX plus a niuneric edi- 
tor for modifying patch data in Yamaha DX and TX syn- 
thesizers. In addition to these programs, there are patch 
librarians available for the Sequential Circuits Prophet 5, 
the Sequential Circuits DrumTraks drum machine, the 
Oberheim OB-8, and Yamaha RX-11 and RX-15 drum ma- 
chines. 

But what if you don't have one of these synthesizers? 
What if you prefer some other synth, like a Korg or a Siel? 
In this case, you'll want to check out the Hybrid Arts GEN- 
Patch program (the GENeric Patch librarian). This program 
lets you construct configuration files (based on the infor- 
mation included in your synth's manual) that will let GEN- 
Patch act as a patch librarian for just about any type of 
MIDI synthesizer, including many drum machines. The 
program comes with prewritten configuration files for 



many popular synths — and also includes a configuration 
editor, in case yours isn't among them. 

Owners of the Ensoniq Mirage sampling synthesizer wall 
be interested in the OASIS Graphic Editor. This program 
will only rim on the 130XE. It will display sampled wave- 
forms in variable resolutions, and allow freehand draw- 
ing and editing of the waveforms in high-resolution 
graphics. This is an extremely powerful program; it actu- 
ally extends the capabilities of the Mirage by allowing 
overlapping waveforms and multi-sampling, and the vis- 
ual waveform display makes it a simple matter to remove 
unwanted noise from sampled sounds. 

Oilier stuff? 

A recent issue of the British magazine InfernationaJ Mu- 
sician and Recording World had a notice about a compa- 
ny in England that is producing MIDI software and hard- 
ware for the 8-bit Atari. The company is Two-Bit Software; 
they're marketing a MIDI interface box similar to Hybrid's 
MidiMate, called MIDI Master. According to the article, 
the box has MIDI in and out plugs, and a serial I/O exten- 
sion port, but no provision for tape sync. 

Check out the accompanying product list and put some 
musical magic into your Atari's life. C\ 

Charles F. Johnson is a professional musician and, now, 
semi-pro/essionaJ computer programmer/reviewer/author. 
He lives in Los Angeles with his wife Patty and Spike, the 
world's most intelligent cat. Charles is a SYSOP on the 
ANALOG Publishing Atari SIG on Delphi; his user name 
is CFJ. 
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by Karl E. Wiegers 



How many of you out there are using a macro assem- 
bler? Let's see a show of hands. Okay, that's about what 
I expected. Now, how many of you are using MAC/65 from 
Optimized Systems Software? Mm, hmm. How about the 
venerable Atari Macro Assembler (AMAC)? I see. I'll bet 
some of you aren't using a macro assembler at all. The 
original Atari Editor/Assembler cartridge (or OSS's equiv- 
alent, called EASMD, where D is for "debugger") is still 
hanging around a lot of cartridge slots, I suspect. 

Today's discussion will be of most interest to those of 
you who own a macro assembler, but haven't really fid- 
dled around with macros yet. However, this doesn't mean 
readers using an assembler without a macro capability 
should toss this issue out. Once you see what you can do 
with macros, you just might want to upgrade your system. 

This is part one of a two-part discussion on using mac- 
ros in assembly language programming. We'll see just what 
macros are, and talk about how they're created using both 
MAC/65 and AMAC. Along the way, we'll compare some 
features of the two assemblers, encounter some of the less 
commonly used directives (such as those for conditional 
assembly) and discuss some programming techniques. 
Next time, we'll continue building a library of macros to 
let us write assembly language programs that read suspi- 
ciously like BASIC. Don't stop here just because you can't 
do macros yet, or because the terminology scares you off. 
If you already knew all this stuff, I'd be out of a job! 

I give up; what's a macro? 

The word or prefix macro refers to large things, as op- 
posed to micro, which refers to small things. In comput- 
erese, a macro is one "command" that performs the func- 
tions of several individual commands. By writing a mac- 
ro, you are essentially creating your own extensions to the 



intrinsic commands available in the language you're us- 
ing. Once created, tliis kind of pseudocommand is a short- 
hand way of representing several fmictions in a single 
statement. 

In assembly language, a macro is a block of individual 
assembly statements. When defining the macro, we indi- 
cate where the block of instructions that make up the mac- 
ro begin, and where they end. We give the macro a name, 
so we can refer to it when writing a program for some par- 
ticular application. To use the macro, we simply type the 
name we gave it as if we were entering a standard assem- 
bly mnemonic, like LDA or TAX. During the assembly 
process, the assembler will replace this macro name with 
the block of individual statements the name represents. 
We can use the macro as many times as we want in the 
program, saving us the labor (and associated chance of 
errors) of re-entering the same block of statements each 
time we need them. 

Macros vs. subroutines. 

So far, this description sounds suspiciously similar to 
that of a subroutine. However, there are some fundamen- 
tal differences between an assembly language macro and 
a subroutine. 

A subroutine is a block of assembly statements begin- 
ning with a label (so we can call it) and ending with an 
RTS (ReTurn from Subroutine) instruction. The subrou- 
tine instructions appear only once in the source and ob- 
ject code of an assembly program. The object code for the 
subroutine is separated in memory from the instructions 
making up the body of the program that calls the subrou- 
tine. We can call the subroutine as many times as we want, 
and, each time we do, the program jumps to the same 
memory location and begins executing the subroutine. 

In contrast, a macro definition exists only in the assem- 
bly source code. When the assembler encounters a call to 
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a macro, it inserts into the object code the entire block 
of code generated by the macro definition. (An exception 
occurs when the macro contains instructions for condi- 
tional assembly, which we'll get to a little later.) So. if 
you've defined a macro named PRINTIT that assembles 
to 50 bytes of machine language, those 50 bytes are in- 
serted into the object code produced by the assembler — 
everywhere the PRINTIT "instruction" appears in the 
source code. This process is called macro expansion. 

If references to PRINTIT occur four times in the source 
code for a program, this will lead to 200 bytes of object 
code derived from the macro. However, if you had a sub- 
routine named PRINTIT that was 50 bytes long, you could 
call PRINTIT a thousand times in the program and still 
only have those 50 bytes of object code derived from the 
subroutine. See the difference? 

Macros provide another degree of flexibility that assem- 
bly subroutines don't have. It is possible to define a mac- 
ro with several parameters that can be different each time 
you invoke (or use) the macro. This way, the object code 
you get each time the macro is expanded can be differ- 
ent. With a subroutine, you write it once and it stays that 
way forever. 

The bottom line is that macros are great when you're 
writing source code. They can save a lot of typing, debug- 
ging and file space. You can write macros to do just about 
any task that pops up repeatedly in a program. However, 
you create additional object code every time you invoke 
the macro. So trust me: you'd rather use a subroutine than 
a macro if you have to perform exactly the same opera- 
tion many times. Of com'se, we can combine a macro with 
a subroutine. . . 

Enough theory. Let's meet your first macro. 

Meet the macro. 

Suppose you're writing some Display List Interrupts 
(also known as DLIs), and you need to save the contents 
of the accumulator and X- and Y-registers on the stack in 
each DLL (This idea should be familiar from issue 46). 
Such a repetitive operation lends itself nicely to a macro. 

Let's define a macro named SAVEREGS. In MAC/65 syn- 
tax, we write a segment of code that looks like this: 



COLORO have been declared in an equates list elsewhere 
in the program): 



8188 


.MACRO SOyERE 


iG5 


8118 


PHA 




0126 


TKfl 




8130 


PHA 




8148 


TYA 




8158 


PHA 




0160 


■ ENDM 





In each DLI we write, we can perform the whole process 
of saving the registers by typing SAVEREGS as an instruc- 
tion. We might as well write a counterpart macro to re- 
store the registers at the end of the DLI: 



0170 


.MACRO RESTORE 


0180 


PLA 


0190 


TAY 


0200 


PLA 


0210 


TAK 


0220 


PLA 


0230 


.ENDM 



8240 


DLI 


8250 


SAUEREGS 


8260 


LDA CH5ET/256 


8278 


LDH ttl 


8288 


LDY 0198 


8258 


5TK W5YNC 


0308 


STA CHBA5E 


8318 


5TY C0L0R8+2 


0320 


RESTORE 


6330 


RTI 



U'e could use this in a typical DLI, in the following fash- 
ion (assume that addresses CHSET. WSYNC, CHBASE and 



Using the SAVEREGS and RESTORE macros like tliis saves 
eight lines of code in the DLI routine — and makes it easi- 
er to read. We can do this wherever — in the whole pro- 
gram — we need to save all three registers. Another ad- 
vantage is that, if we need to change the macro for some 
reason (not that you ever forget anything the first time 
through), the change is applied everywhere the macro is 
used the next time you assemble the program. 

The Atari Macro Assembler uses a slightly different syn- 
tax than does MAC/65. The SAVEREGS macro would be 
entered like this in AMAC: 

SAUEREGS: MACRO 
PHA 
TXA 
PHA 
TYA 
PHA 
ENDM 

Notice that AMAC doesn't require statement numbers, and 
the name of the macro appears in the label field of the 
source line. Also, the MACRO and ENDM delimeters don't 
begin with a period in AMAC. 

Macro ecology. 

Perhaps you've wondered about the neutral habitat of 
the macro. Macros are fomid in many parts of the assem- 
bly language world. Quite a number have been spotted 
lurking at the very beginning of the source listing. Some 
have carved out an ecological niche between the equates 
normally fomid near the top of a listing and the begin- 
ning of the executable statements in the program (that is, 
before the * = $5000 or similar directive). Still other mac- 
ros are known to inhabit the nether reaches of programs, 
among the .BYTE statements that so often abomid there. 
Some varieties share the same environment as subroutines, 
although the two really are quite different species. 

The macro is a hardy creature, able to live practically 
anywhere in a source program except directly amidst the 
primary code. Reported sightings of macros have been in- 
creasing recently, and their population appears to be grow- 
ing rapidly. My own collection of captive macros prefers 
to be nestled just below the equates list. Perhaps it's warm- 
er there. 

Macros with parameters. 

Let's write a macro to simulate the BASIC POKE com- 
mand. If you recall your Atari BASIC, a statement like 
POKE 710,84 means you want to store the decimal value 
84 into location 710. Thus, the POKE command requires 
two pieces of data: what to poke and where to poke it. The 
value to poke will always be from through 255 decimal. 
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and the address to be poked must be from through 65535 
decimal. How can we write a macro to accommodate any 
possible combination of these two pieces of data? 

The solution is to pass parameters to our macro. The 
macro definition is written using symbols to represent 
some of the data items in the assembly instructions. Each 
time you invoke the macro, you specify the actual values 
of the parameters to use at that time. During the macro 
expansion process, the actual values are substituted in 
place of the parameters. This way, each use of the macro 
in a program can result in the generation of a different 
object code if the parameters are different. Let's see an 
example. 

Our POKE macro requires two parameters. Both 
MAC/65 and AMAC use the symbols %1 and %2 to 
represent the first and second parameters passed to 
the macro, respectively. Each time you invoke the 
POKE macro, the value of the first parameter you sup- 
ply will replace every occurrence of %1 in the mac- 
ro. Please enter the following program for MAC/65: 



0100 


.OPT OBJ 


Olio 


.MACRO POKE 


0120 


LDfl uy.2 


0130 


5TA -Al 


0140 


.ENDM 


0150 


;prograM starts here 


0160 


«= $5000 


0170 


POKE 710,84 


0180 


BRK 



The POKE macro says to take the second parameter 
specified when the macro is invoked (84 in Line 170) 
and load that value into the accumulator (Line 120). 
Then, store the accumulator contents into the address 
specified by the first parameter (Line 130). If you run 
this program, you should see the background color 
of the graphics screen change. The POKE 710,84 
syntax is exactly the same as the BASIC POKE 
command. 

AMAC does things a little differently. Below is the 
equivalent progam for AMAC. 

POKE: MACRO WHERE, WHAT 

LDA UY.2 

STA /.l 

ENDM 
jprograM starts here 

ORG $5000 

POKE 710,84 

BRK 

Notice that we specified names for the two pai'ameters 
(WHERE and WHAT) in the AMAC macro declara- 
tion statement. These names are dummies, used for 
documentation simply to remind you that parameter 
%1 is the address you're going to poke (WHERE) and 
%2 is the value you're going to poke (WHAT). Try 
changing the second parameter to different values and 
see what happens. AMAC also differs in that it re- 
quires the ORG directive (AMAC calls it a "pseudo- 
operation" or "pseudo-op") to specify the starting lo- 
cation for the program. 

AMAC lets you use up to nine parameters in a sin- 
gle macro, called %1 through %9. A maximum of 
sixty-three parameters can be used in a MAC/65 mac- 



ro. MAC/65 also has a special "parameter" called %0. 
This always contains the number of parameters actu- 
ally passed to a particular macro expansion. Why 
would anyone want to know this, you ask? After all, 
if I defined a macro containing two parameters, like 
POKE, I'll always be sure to pass two parameters when 
I invoke the macro, like POKE 710,84. Right? 

Maybe. Maybe not. I don't know about you, but I 
sometimes make mistakes when I'm programming. Or 
suppose you give your nifty new macro to a friend, 
and she omits one of the parameters inadvertently? 
The technical term for the result is a crash. This is 
an opportune time to take a brief diversion and talk 
about what I call "defensive programming." 

Defensive programming. 

Every day, I go to work at Eastman Kodak Company in 
Rochester, New York. There I sit down at a terminal con- 
nected to an IBM mainframe and write applications pro- 
grams for other research scientists to use. (This is an odd 
career for an ex-organic chemist, but that's the way it 
worked out.) The people who use these programs don't 
care how they're written; they just want them to work cor- 
rectly and be easy to use. Other people frequently want 
to modify programs I've written. Thus, I have to build in 
lots of error trapping to protect users from themselves, and 
my programs must be clearly organized and well docu- 
mented so other programmers can understand them. I call 
this approach "defensive programming." 

An important programming law when you're writing 
for users other than yourself states that, just when you 
think you've covered all the ways a user can do do some- 
thing silly with your program, someone will come up with 
something new and creative. Take my POKE macro 
(please). Can you be positive another person will always 
remember to use two parameters when invoking the mac- 
ro? Can you be positive another user will never supply a 
second parameter (the value to be poked) outside the range 
of through 255? 

The answer to both questions is no. So how can we build 
some protection into the POKE macro, in order to keep 
people from fowling up and wasting a lot of time trying 
to find their problem? It's pretty ea.sy to cover the two 
scenarios I mentioned in the POKE macro. 

First solution: with MAC/65, examine the number of 
parameters specified in %0. The .IF directive can test for 
a specific condition, just as in BASIC (only better), and 
we can cause an assembler error to be issued with the .ER- 
ROR directive. Detecting an error at assembly time is lots 
nicer than waiting mitil execution time. Second solution: 
take the low byte of the second parameter to make sure 
we always have a value from through 255. The modified 
POKE macro below illustrates these methods. 

0100 .MACRO POKE 

0110 .IF y.O <> 2 

0120 .ERROR "Wrong nuHber of 

paraMeters in POKE" 

0130 .EL5E 

0140 LDA n <y.2 

0150 5TA y.l 

0160 .ENDIF 

0170 .ENDM 
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Lines 110-160 define an .IF block for conditional assem- 
bly. If the condition in Line 110 is true (that is, if the num- 
ber of parameters is not equal to 2), then the statements 
in the next lines axe assembled, down to the .ELSE in Line 
130. But if the condition in Line 110 is false (meaning that 
the correct number of parameters was supplied) , then as- 
sembly continues with Line 140, the first statement after 
the .ELSE. 

The .IF blocks are very powerful. You can actually nest 
the .IF/.ENDIF blocks within each other, down to fourteen 
levels. You can have as many lines of code as you like be- 
tween the .IF/.ELSE, .IF/.ENDIF and .ELSE/.ENDIF de- 
limiters. And .IF blocks can be used in macros, or any- 
where else in an assembly program. AMAC has the same 
sort of IF blocks, except the directives do not begin with 
a period (IF instead of .IF). 

Remember, these directives or pseudo-ops don't cor- 
respond to actual 6502 machine language instructions. 
They're just commands that make oirr assembly programs 
smarter and more flexible. 

A word about operators in the two assemblers. In Line 
140 of the preceding macro, we used the less-than sym- 
bol ( < ) to indicate that we want to load the accumulator 
with the low byte of the value in parameter %2 . This is 



a MAC/65 convention. In AMAC, you accomplish the same 
thing with die LOW operator: LDA #LOW %2. A technique 
that works with any assembler is to perform a logical AND 
operation of the subject value with decimal 255: LDA 
#%2S'255. All of these methods retain only the 8 least sig- 
nificant bits of the operand, which is a fancy way of say- 
ing the low byte of %2. 

A macro of a different color. 

Let's try to write a macro to emulate another common- 
ly used BASIC command, SETCOLOR. In BASIC, this 
command has the form: SETCOLOfl X,Y,Z. X refers to the 
color register we wish to change [0-4], Y to the hue num- 
ber (0-15), and Z to the luminance mmiber (0-15). The SET- 
COLOR command simply stores the desired color number 
into a particular color register address. The actual color 
number equals 16 * hue + luminance. I imagine you know 
that you can mimic the SETCOLOR command with a 
POKE, in the form: POKE 708+X,16*Y+Z. We should be 
able to write a macro to do the same thing. 

I'll begin with a bare-bones macro to do the dirty deed, 
then we can worry about error trapping and other refine- 
ments. If our SETCOLOR macro is to have the same form 
as the BASIC command, it obviously requires three pa- 
rameters (%1, %2 and %3). Furthermore, we'll have to mul- 
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tiply %2 by 16 and add the result to %3, to calculate the 
color number. Fortunately, assemblers let you use opera- 
tors like * for multiplication in expressions. 

Here's a first try at the SETCOLOR macro, in MAC/65 
format: 



0108 


COLORO = $2C4 


0118 


.MACRO SETCOLOR 


8128 


LDX ttJ^l 


0130 


LDfl «>C2»16 


0140 


CLC 


0150 


ADC uy.z 


0160 


STfl COLORO, X 


0170 


.ENDM 



Line 100 establishes an equate for the address of color 
register 0. Line 120 loads the value of the first parameter 
into the X-register, so we can use it as an offset to point 
to the desired color register in Line 160. Line 130 loads 
the accumulator with the second parameter multiplied by 
16. Lines 140-150 add the value of parameter 3 to whatev- 
er is already in the accumulator. 

The ADC instruction means "ADd with Carry." The data 
following the ADC is added to the value in the accumula- 
tor. In this case, we're using the immediate addressing 
mode, so the data to be added is just the value of parame- 
ter 3. If the result is greater than 255, the accumulator con- 



tains the sum minus 255, and the carry flag in the proces- 
sor status register is set to 1. It's important to CLear the 
Carry flag to (CLC instruction) before performing an 
ADC, so you can reliably test the carry flag if you need 
to later on. 

After all this arithmetic, the accumulator contains the 
actual color number. Line 160 stuffs that number into the 
appropriate color register. 

The SETCOLOR macro will work fine as written. Now 
let's consider some possible problems. There's the one we 
discussed before, of supplying the wrong number of pa- 
rameters when invoking the macro. That one's easy to fix 
with MAC/65, by using the %0 test. But what if a param- 
eter isn't an immediate value like 84, referring instead to 
the contents of address location 84? The macro has to be 
able to handle either situation. Since the only valid color 
register numbers are through 4, let's regard any %1 
values greater than 4 as referring to a memory location. 
Similarly, hue and luminance values can only go from 
through 15, so we'll assume that %2 and %3 values great- 
er than this refer to memory locations. Hmmmm. Sounds 
like a job for conditional assembly with .IF! 

Listing 1 contains a complete form of the SETCOLOR 
macro, with comments so anyone else could use it and 
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TITLES MOT LISTED 


CALL 


ST SOFTWARE 




IMO 1 S20 ST 


CALL 


CHIPMUW 


29.95 


3-D HEIECOPTER 


29.97 


1060 DISK DRIVE 


129.95 


ATARI WRITER t 


31.95 


COMPULSIVE COPIER 


29.95 


1060 W/HAPPt mST 289.95 


BASIC CARTRIDGE 


19.96 


COPY II ST 


29.95 


130 KE 


129.95 


BASIC IE 


A9.95 


DEGAS ELITE 


47.95 


256K CHIP SET 


21.95 


BASIC XL 


39.96 


COVETED MIRROR 


17.95 


620 DISK DRIVES 


CALL 


COMPUTER WARS 


H.96 


EXPRESS lEHER 


34.95 


BSO INTERFACE 


109.95 


DEFENDER 


A. 99 


CATO 


26.97 


» OmiHOH 


69.95 


DOS 2.5 W/MANUAL 


9.95 


HID BASE 


69.95 


ACCESSORIES 


CALL 


E.T. PHONE HOME 


6.99 


CRIMSON CROWN 


17.95 


APE FACE 


A9.95 


GRAPHICS 1,11,111 


14.97 


LEADER BOARD 


24.97 


AVATEX hOOEHS 


CALL 


HAPPY ARCHIVER 


34.95 


LOGIKHRON CLOCK 


39.95 


CABLES 


13.95 


MEGAFONT II 


17.95 


MARK WILLIAMS C 


124.95 


CIIIP/ARCIIIVER 610 


69.96 


MINER 2M9ER 


5.95 


MEGAMAX C 


139.96 


fPRON BURNER 


129.97 


MUSIC PAINTER 


6.95 


MOOULA-2 


69.97 


EZ RAM 620 


169.95 


P.S. COMPANIOM 


21.97 


EASY DRAW 


69.95 


KAPPt 1050 ENHAKC 


124.95 


PAGE OESICdER 


17.95 


POINT OF SALE 


69.95 


HAPPI 810 ENHANCE 


1W.96 


ORAGCM RAIDERS 


14.95 


PRINT WORKS 


42.97 


HAPPY CONTftOlER 


39.96 


PRINT SHOP 


26.97 


PROLOG 


69.95 


HARD DISK DRIVES 


CALL 


RUBBER STAMP 


19.96 


PUBLISH PARTNER 


119.95 


ICO HID I MEG 


CALL 


SPARTA DOS COMST 


29.95 


SOUND 0IC1TI7ER 


119.95 


ICO MO 25a 


CALL 


STAR RAIDERS 


6.95 


ROGUE 


22.97 


LIGHT PEN 


69.95 


TIME WISE 


6.95 


RUBBER STAMP ST 


24.95 


REHELL 25EK U.S. 


34.95 


TOP DOS 1.5 PLUS 


29.96 


HC«E PLAAETARim 


20.97 


NUMERIC KEYPAD 


39.95 


TYPEStnER 


19.95 


ST COPY 


29.95 


OMNIVIEW XL/AE 


36.96 


HOLE WORD 


24.95 


LOW BASIC 


69.96 


P.R. COMNECTIOM 


5;. 95 


WARP SPEED DOS XL 


24.96 


PC BOARD DESIGNER 


169.95 


POUER SUPPLIES 


CALL 


ONE ON ONE 


14.96 


TEMPLE OF APSHI 


19.95 


PRINTERS 


CALL 






STAR RAIOERS 


26.95 


PHINIER COMKECT. 


39.96 


ATARI REPAIR SERVICE 


SWIFTCALC ST 


47.95 


R-TIHE CARIRIDCE 


(9.95 


ITEMS NOT LISTED 


CALL 


THUNDER 


23.97 


RAMBO XL UPGRADE 


29.95 


1060 DISK DRIVE 


69.95 


TIME BANDITS 


24.97 


RAHCHARGER 


139.96 


130 XE 


69.95 


TYPESETTER ST 


24.95 


RAMROO II 


39.96 


520 DISK DRIVE 


89.95 


ULTIMA III 


35.97 


TOUCH TABLET 


69.96 


520 SI 


139.95 


VIP PROFESSIOMAL 


99.95 


U.S. OOUBLER 


29.96 


850 INTERFACE 


49.95 


WINTER GAMES 


24.95 


UPRINT INTERFACE 


69.96 


ATARI PRINTER 


69.96 


WORLD GAMES 


24.95 


XL I IE BOS 


A9.95 


POWER SUPPLY 


12.95 


WRITE 90 


18.97 
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a tiny program to let you try it out. Experiment with differ- 
ent values for the parameters and see what happens. In 
practice you might not always make your macros this 
elaborate, but I hope we've brought up some points you 
may not have thought about otherwise. 

Lines 410-460 of the listing illustrate another point. 
Remember how we multiplied parameter %2 by 16 in a 
single expression a little earlier? Well, that works fine with 
an immediate operand for the LDA instruction, but not 
when we're loading the register with the contents of a 
memory location, as in Line 420. An easy way to multi- 
ply the contents of the accumulator by 16 is to shift each 
bit in the accumulator 4 bits to the left (the more signifi- 
cant direction) . Each execution of the ASL A (Arithmetic 
Left Shift of the Accumulator) instruction multiplies the 
contents of the accumulator by 2. Of course, any bits set 
in the high nybble (left 4 bits) fall off the edge of the earth 
after the fourth ASL A, but that's okay. If you're trying to 
use a hue number greater than 15, you deserve that fate. 

The Y-register is just used as a temporary holding place 
for parameter %3 in Lines 570-610. This is sort of a jug- 
gling act, but it gets the job done. 

Son of Macromania. 

Think back to the form of the macros we talked about 
today, POKE and SETCOLOR. Do they remind you of any 
other language? (Hint: say Atari BASIC.) If we can write 
enough macros to perform the familiar BASIC operations, 
we can begin to write assembly programs almost as easi- 
ly as BASIC programs. Plus they'll be nearly as easy to 
read. 

In the next installment, I'll present a number of mac- 
ros to get you started writing pseudo-BASIC programs us- 
ing MAC/65. (Users of AMAC or other assemblers will have 
to adapt the routines, but that's not too hard.) I'll also de- 
scribe a way to manage this library of macros and incor- 
porate them easily into your future programs, with the 
.INCLUDE directive. Until then, think about the kinds of 
tasks you perform in your own programs which might lend 
themselves to "macrofication." PI 

Despite having a Ph.D. in organic chemistry, Karl Wie- 
gers earns a living writing applications software for pho- 
tographic research at Eastman Kodak Company, mostty on 
an IBM mainframe. He is also interested in educational 
applications of Atari 8-bit, Atari ST and Apple 11 com- 
puters. 



Listing 1. 
Assembly listing. 

;SETCOLOR Macro exanple 
jby Karl E. Wiegers 

;usage: 5ETC0L0H X,Y,Z 

.OPT OBJ 

;in a real prograw, put this 
jequate in your usual equates 



Qioe 

Olio 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0150 

0200 COLDRO 

0210 : 



0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

6580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 



.MfiCRO SETCOLOR 

;check for right tt of paraMeters 

.IF >^0<>3 

.ERROR "SETCOLOR error" 

.ELSE 

;set offset for color register 

.IF Xl>4 
LDK y.i. 
.ELSE 
LDX tt-Al. 
.EHDIF 

if J^2>15 assune it's an address; 
Multiply by 16 with four flSL A 

.IF X2>15 

LDfl -/.l 

ASL A 

ASL A 

ASL A 

ASL A 
j 
;otherwise just Multiply by 16 

.ELSE 

LDA tty.2*1.5 

.ENDIF 

■ 

;if X3>15 assuMe it's an address; 
;put it in Y-reg. teMporarily 

.IF >'.3>15 
LDY Y.Z 
.ELSE 

LDY ny.z 

.ENDIF 

Store what's already in the 
accuMulator briefly, even though 
we haven't added yet 

STA COLORO,K 

keep just the low nybble of 
what's in the Y-register 

TYA 
AND »15 

J add Y.Z (now in A) to J^2»16 Cnow 
;in COLOROfX) and store again 

CLC 

ADC COLORO,K 
STA COLOR0,X 
.ENDIF 
.ENDM 

;saMple prograM to try SETCOLOR 

»z 55000 

SETCOLOR 2,6,4 
BRK 



$02C4 
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Easy Find 



Get your reference collection 

and program library under control — at last! 



by Jim Siemion 



There you are, sitting on the floor again with magazines 
scattered everywhere, trying to find that article on player/ 
missile graphics you saw just a few months ago. . .or was 
it earlier? Well, an hour later you've finally found it! Must 
have been a little farther back than you remembered, but 
no matter, you've got it now. 

Without hesitation, you type it in and wait for the mo- 
ment of truth: you run the program and your keyboard 
locks up! You recheck your typing with BASIC Editor 11 
(last-printed in issue 47), and it checks out okay. Must be 
a bug in the original program. So you pull out your maga- 
zines and start looking through later issues for a fix in 
the Reader comment section ... If this is a familiar sce- 
nario for you, I think you're going to like EasyFind. 

Typing it in. 

To create your copy of Easy Find, you must perform the 
following steps: 

(1) Type in Listing 1, using the BASIC Editor II from 
issue 47 to check your work, then save it to disk. 

(2) Rmi the program typed in step 1. It will create 
the file MLSTRING.LST on your disk. 

(3) Type in Listing 2, using the BASIC Editor II to 
check your work, then save it to disk. 

(4) With the program typed in step 3 still in mem- 
ory, merge the file created in step 2 with the command 
ENTER "D: MLSTRING.LST". 

(5) Finally, save the completed EasyFind program 
to disk. 

Using it. 
EasyFind is a menu-driven indexing system much like 
the card catalog found in a library. It was originally de- 
signed to seai'ch and retrieve ailicles from Atari magazines 



such as ANALOG Computing. However, it can and has 
been used for almost any kind of reference information 
you can think of: technical journals, club newsletters, 
record and tape collections, and many others. It will 
search through files of information and only select those 
records that match search phrases you dictate. 

If you had used EasyFind in our example, you could 
have asked it to find all the information on P/M graphics, 
and it would have displayed on-screen — or output to a 
printer or disk file — all reference articles for that subject. 
Furthermore, it could have told you of all the fixes sub- 
mitted for the program, so, instead of locking up your key- 
board, the program would have run right the first time! 

If you're like most Atari enthusiasts, your collection of 
magazines extends back many years — and grows month- 
ly. The problem of finding all that good stuff from months 
or years ago keeps getting worse as your collection get big- 
ger. But wait! What did you buy a computer for (aside from 
game-playing)? Wasn't it to do those things we humans 
aren't well suited for? 

And one of the best tools for organizing piles of data 
for easy access is a database program. EasyFind is really 
a specialized database program, specifically designed for 
searching and retrieving text-based information in a very 
quick and easy way. As you'll see, in this database there 
are no numeric fields or complicated record formats. Each 
reference record is simply seven lines of text, much like 
an index or library catalog card. Because the record is so 
simple, you don't need any specialized data entry proce- 
dures. Records can be created using any standard word- 
processing program or text processor. 

Features. 

EasyFind has many features that make it enjoyable to 
use: simple menus, on-line help, windows, scrolling dis- 
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play windows, two display formats, output to printer or 
disk, multiple search phrases, Boolean logic, and more. 
After you've started up EasyFind, you will be present- 
ed with a full screen display. At this point, you can acti- 
vate any of EasyFind's features via the menus and certain 
keys. But first, let's look at the screen display. 
The Screen Display. 
The screen is divided vertically into three main areas: 

The Option Menu is at the bottom of the screen. 
This is where you control how and what EasyFind 
will do. There are nine different option choices in this 
menu: Search, File, Disk, Record, Keywords, Auto- 
print, Output, Display and Exit. 

The Option Display is at the top of the screen. This 
always shows you what options you've selected: Disk, 
File, Record, Output and Autoprint. 

The Display Window is in the middle of the screen. 
Here, selected records are displayed, as well as on- 
line help. This is a 12-line window which scrolls. 
The Keys. 

All of EasyFind's functions are controlled by just the 
few keys described here. Of course, there are times when 
you have to use the alphanumeric keys to enter search 
phrases or filenames when prompted, but the keys here 
control the menu and display. 

Left and Right Arrow Keys. Using these keys (with- 
out holding down the CTRL key) lets you select an 
option from the option menu at the bottom of the 
screen. When an option is selected, it will appear in 
reverse video. Although the menu is seen on two lines, 
you only have to use these two keys to select any op- 
tion. Also, the menu wraps around from Search to 
Exit, so that if you move left past Search, you wind 
up dovm at the bottom at Exit. 

There are other menus shown in smaller windows 
for choices to options. For example, the AutoPrint op- 
tion has a small menu of two choices: ON or OFF. The 
arrow keys are used to select either of these choices. 
Up and Down Arrow Keys. These keys (I hate hold- 
ing down CTRL, so you don't need to do it with these 
keys, either) find the Next or Last record in the cur- 
rent index file. Once you've told EasyFind what fil6 
to search, the up arrow key will find the last record 
in the file, and the down arrow will find the next rec- 
ord. If you use these keys before you enter a search 
phrase, EasyFind will display each record in the file. 
Another use for these arrow keys is with the File 
option. If you activate this option, you will be shovra 
a vertical menu of filenames from which you select 
one by moving up and down the list. 

HELP, RETURN, START, ESC. One of the most use- 
ful features is EasyFind's context-sensitive on-line 
help function. It's activated at any time by pressing 
the HELP key on XL and XE machines, or CTRL-H 
on the Atari 400s and 800s. You might be asking your- 
self, "What is 'context-sensitive on-line help'?" This 
simply means that, when you ask for help, the com- 
puter knows what option you're using and displays 
help relevant to only that option. 



The RETURN key is an all-purpose key. When a 
menu choice has been selected (shown in reverse vid- 
eo) you "activate" that choice with RETURN. This ap- 
plies both to the main option menu and the smaller 
menus in the windows. 

When START is pressed, EasyFind "starts" search- 
ing through the database for whatever records match 
the search phrases you've entered. As it finds a rec- 
ord, it will automatically display that record on the 
screen, then continue to look through the database 
for another match. This is the lazy man's key. 1 mean, 
why keep pressing the down arrow all the time, when 
you can have the computer do it for you? 

Now that you know what START does, you prob- 
ably want to know how to stop it. The ESCape key will 
stop the automatic search function and put you back 
in control again. This can give you time to look at 
things before going on. If you press START again, 
EasyFind will continue its search through the data- 
base from wherever it stopped. 

Menu options. 

The menu at the bottom of the screen controls the whole 
program and is the most important to understand. Let's 
look at each menu item. 

The Search Option. 

When you want to find information in an index, you 
have to tell the computer what to look for. Here, you can 
enter one or two search phrases of up to twenty charac- 
ters each, and also tell the computer if it has to match both 
phrases in the record or only one of the phrases. For ex- 
ample, let's say you wanted to find out all reviews of game 
programs. You would enter REVIEW for the first search 
phrase, GAME for the second, and require that records 
must match BOTH phrases. This corresponds to the Boo- 
lean AND fimction. If you had said that records only need 
to match EITHER phrase, this would be like the Boolean 
OR function, and records with either GAME or REVIEW 
in them would be selected. Also, if you wanted to select 
or look at all records, you need only enter an asterisk (*) 
for the first search phrase. 

The File Option. 

There can be many different files or databases on a disk 
for which you would want to search. When you activate 
this option, a directory of all files on the current disk with 
an extension of .DAT will appear in a text window. Using 
the up and down arrows, you select one of the files you 
want to search for information. Once you've selected the 
file, simply press RETURN and that file will be opened 
for use by EasyFind. 

The Disk Option. 

You can search files on any disk drive, including a RAM- 
disk. For those users with more than one disk drive, several 
different databases can be kept on multiple disk drives. 
When you activate this option, you will see the prompt 
DISK: in a small text window. You can enter any number 
between 1 and 8. If you enter an invalid number, the pro- 
gram defaults to drive 1 for the current drive. Once you 
select a valid disk drive, you will be shown the file op- 
tion menu and must select a file to search. 
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The Record Option. 

Information is accessed by records when you're search- 
ing for a given reference. The records are stored in the 
database file as simple sequential records. However, when 
you read these records, EasyFind remembers where they 
are in the file and can later access them by number. When 
you activate this option, you vwll see the prompt RECORD: 
in a small text window. If you enter a record number that's 
already been accessed, that record will be displayed. This 
option is only valid in the full screen display mode. You'll 
also note that the current record being displayed is shown 
in the upper right-hand corner of the option display area. 

The Keywords Option. 

Searching for references involves telling EasyFind to 
find a certain phrase or combination of phrases within 
the records. In order to facilitate searching, a set of forty- 
six keywords commonly found within Atari magazines are 
offered here. When you activate this option, the list of key- 
words is shown in the display window. In the Atari maga- 
zine indexes sold by Sierra Services, if these words don't 
occur within the title or description, they're added to the 
description, to better organize and categorize the infor- 
mation. 

The Autoprint Option. 

Sometimes you want to maintain a copy of the records 
you've found. You can do this with the autoprint option. 
When you activate it, you're presented with a small text 
window in which you have two choices: ON or OFF. By 
using the left or right arrows, you can select your choice, 
then activate the choice by pressing RETURN. If you turn 
the autoprint feature ON, every record selected will be sent 
to the output device you've indicated. The form of the rec- 
ord depends on the display format: if the full display for- 
mat is active, then a full seven-line record will be sent 
to the output device. However, if you're in the brief mode, 
only a single line will be output per record. 

The Output Option. 

This option works in conjunction with the autoprint op- 
tion and can be one of the more powerful options. It lets 
you output selected records to any device you choose. Nor- 
mally, this would be the printer or P: device, but it can 
be a disk or cassette file. When you activate this option, 
you'll see the prompt Output Device: in a text window. 
You can enter any valid device specification up to fifteen 
characters in length and end your entry by pressing RE- 
TURN. 

After you've entered your new device specification, the 
old output device is closed and the new one opened for 
output. For example, if you want to create subsets of your 
database file, you can enter a disk filename as the output 
device. Then, whenever records are selected and the au- 
toprint option is on, they will be saved in the disk file. 
Please note that you have to enter a new device name be- 
fore the old file will be closed. 

The Display Option. 

There are two display formats for viewing records in a 
database file: full and brief. As mentioned earlier, each 
reference record is seven lines of text. The full format dis- 
plays all seven lines of the record in the display window. 



The brief format displays only one line per record, but can 
show up to eleven records on-screen at once. The line in- 
cludes record number, month and up to thirty-one title 
characters. You can toggle back and forth between full and 
brief displays. This is where they're most useful. For ex- 
ample, if you were searching a database file and you ex- 
pected to find a lot of matching records, you might want 
to specify brief format. When you saw a title that looked 
like the right one, you could then select the full format 
and see the complete record. Once done, you can go back 
to the brief display, and the screen will be the same as 
it was before you went into full display. 

The Exit Option. 

This is the easiest option of all. It simply closes all the 
files, stops the EasyFind program, and retm-ns you to 
BASIC. 

Index files. 

As we said earlier, EasyFind is a specialized database 
program, originally designed to search and retrieve refer- 
ences to articles and programs in Atari magazines. The 
databases containing this information are called index 
files, since they're essentially card or magazine indexes. 
The index files have a very simple design; because of their 
simplicity, they are also very flexible. 
File Format. 

All database programs work with records. EasyFind is 
no different, although its definition of a record varies 
slightly from what you might expect. Normally, a record 
is a collection of related data items, usually called fields. 
For EasyFind, a record is a collection of seven lines or 
strings of information. There are no fields or specialized 
formats. Anything you want can be entered in these lines 
or strings. What could be simpler? 

Actually, each of these lines or strings is a "record" as 
far as the Atari I/O is concerned, since it considers a rec- 
ord to be some number of contiguous bytes terminated by 
an End Of Line (EOL) or RETURN character. 

Here's the file format EasyFind expects to read. Each 
line must be thirty-nine characters or less, and it must be 
terminated by an EOL character. Anytime you PRINT a 
string in BASIC, it's terminated by an EOL character; most 
word processors terminate when you press RETURN. 
Line 1: Magazine, Month, Year, Page, Autlior 
(Each of these "fields" should be 
separated by a space.) 
Line 2: Title or article 
Line 3: Description of article 
Line 4: Description of article 
Line 5: Description of article 
Line 6: Description of article 
Line 7: Description of article 

Note: Although EasyFind doesn't care what information 
is in these seven lines, as far as searching and retrieving 
is concerned, the brief format will look for a space between 
the magazine and month in the first ten characters of Line 
1. If it finds a space, it takes the next three characters and 
displays them as the month. It also uses the first thirty- 
one characters of Line 2 in the display as the title. 

How to create yoiu- own indexes. 

The easiest way to create your own index files is by us- 
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ing a standard word processor compatible with Atari- 
Writer format. For each database record, enter up to sev- 
en lines and terminate each line by pressing RETURN. You 
must end each line with a RETURN. Do not use the word 
wrap feature. 

You don't have to fill in each line. For example, if you 
only have five lines of useful information for one record, 
just press RETURN once for each of the two missing lines. 
This, in effect, gives you five actual lines and two empty 
lines. The only rule here is that each record must have sev- 
en lines, whether empty or not. 

Another way to create an index file would be with a sim- 
ple BASIC program such as this one: 

OPEN «1,8,8,"D!MYFILE.DAT" 
DIM LINE$C39) 
INPUT LINES 
PRINT ni; LINES 
GOTO 38 

Once you're through entering data, just press BREAK 
and close the file by entering CLOSE #1 in immediate 
mode. 

Note: EasyFind expects each index file to have an ex- 
tension of .DAT. When the file option is activated, it only 
allows you to select or open a file with this extension. The 



18 
28 
38 
48 
58 



following are examples of filenames EasyFind would rec- 
ognize: ANALOG85.DAT, MYDATA.DAT 
An example. 

Let's step through an example of how you might use 
EasyFind if you wanted some information on player/mis- 
sile graphics. After you start up EasyFind, you will be 
presented with a full screen display. 

Press the right arrow key until "File" is selected, then 
hit RETURN. You'll see a small window mid-screen, with 
the prompt Disk:. Let's assume your index file is in disk 
drive 1 and is called ANALOG86.DAT. 

Enter 1 and press RETURN. EasyFind will read the disk 
directory on disk 1 and display that directory in a win- 
dow in the middle of the screen. 

Press the down arrow imtil the file ANALOG86.DAT is 
selected, then press RETURN. The file will now be 
opened. 

Press the left arrow key until "Search" is selected, then 
press RETURN. You now see a window in the middle of 
the screen with a prompt. Phrase;. Enter P/M and press 
RETURN. 

You will still be in the same window with the same 

(continued on page 89J 
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real problem witli metafiles is that the 
program doesn't know what it is 
outputting to. It can't clieck font sizes, or 
names, or actual device resolution. 
Metafiles are great for object drawing, 
but for text they stink." 

The conference resolved tliat GDOS in 
its current form was inadequate; 
altliougli it should be Atari, not DRl, 
which makes any corrections to it. jy 

Batteries d/s-included. 

Electronic Arts has, as of April 3rd, 
announced its intent to purchase rights 
to (he brand Baflerie.s IncJuded, as well 
as production and distribution rights to 
BI's current product Hne. BI employees, 
under mysterious circumstances, were 
terminated prior to the signing of the 
deal between EA, BI and BI's owner, 
ITM. EA will still be allowed to contact 
BI's independent authors to negotiate for 
contract renewals. BI's PaperClip author 
Dan Moore, has confirmed to us that he's 
already been contacted by EA. Upcoming 
issues will bring you full details. 

According to BI's former Vice 
President for Creative Services, Marty 
Herzog (now with Atari Canada), BI was 
plagued in its final days by piracy. 
Herzog says it was the case for most BI 



titles that "For every one sold, I believe 
there were two that were pirated. Two- 
thirds of [our] user base pirated software. 
I know there were a lot of people out 
tiiere who asked to buy manuals from us. 
It's a fact of life that [piracy] does 
happen, and we kind of resigned 
ourselves to it." 

Might BI's low prices on the consumer 
market shelves have been too drastic a 
measure to combat piracy? Answers 
tterzog, "The original DEGAS came out 
at $39.95, and even there we found we 
were still getting pirated. Originally, we 
were going to put Thunder! out at $39, 
also. Then we were talking about 
Borland doing a copy-protected version 
and an im-copy-protected version, so we 
compromised and put it out a little more 
expensively, but still no copy protection. 
It was Borland which started the idea of 
doing SideKick in a protected and 
unprotected version; in the unprotected 
version you pay a bit more. Then we 
compromised on Tliunder! at $49. 

"We also played with the idea," adds 
Herzog, "of a plug-in key; we originally 
did it with our 8-bit software line. There 
was even a point where we went so far 
as to consider a plug-in cartridge that 
would also be a clock card, and our 



software would not work without that 
clock card." /y 

Argonaut boards a 
bigger stiip. 

Electronic Arts President Trip Hawkins 
has confirmed that Starglider author 
Jeremy "Jez" San has been contracted by 
EA to produce some new entertainment 
titles, perhaps under an Affiliated Titles 
Program agreement with San's company, 
Argonaut Software. Starglider has 
received the most critical acclaim of any 
game available for the ST; Byte colimmist 
Jerry Pournelle has tied it with EA's 
Starfliglit as his Best Computer Game of 
1986. 

Hawkins adds to that acclaim by 
saying, "SlargUder. I think, is probably 
tlie only really outstanding game for the 
ST." Starglider is distributed in the U.S. 
by Firebird Licenses, USA. 

That's the notes for this month. I'll see 
you on Delphi. /J' 
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Rocks! 



by Douglas Engel 

TIk! cr(!vv vvcis ecstatic—after tour years of searching. 
an inhabitable star system had been found for the Earth's 
refugees. As the fleet passed each of the ten planets of the 
system, scanners showed more signs of the ancient civili- 
zation that once prosp(!r(!d here. There were even some; 
(UKirgy readings. A landing party was dispatclKKJ lo in- 
v(!Stigate. Its members returned with reports of gigantic 
pyramids, huge underground cities, massive nuclear fur- 
naces, giant radioactive waste dumps— and no signs of 



1 lie star sysl(;m was soon nrougni nacK lo niii. reoiiie. 
moved into die underground cities and activatiul. die reac- 
tors. The advanced technology of the civilization was iiar- 
.n(!SS(;d, Ifjci-eate impenetrable (hiiense screens of artificial 
asteroids callerl Rocks, (o protect each planet from the 
alii.'iis who liad destroyed the colonists' home. Everything 
seemed to be jjrogresslng very well, until the day the colo- 
!»■ flkrM\-i.r('ri whal had hanoeiied to the former inhabi- 



ol' waste eac:h day — waste whic:li was dumped in (uich 
Ijlanet's massive wast(! dump, waste which was still ac- 
tive in some strange; way. The radial io'n at (;acli dunij) con- 



.Somelhing had In be doni! lo prevent disaster. 

You've i)een a.ssigned to the radiation dis|)(!rsal team 
working lo save as many of tiie plaiu!ts as possible I'roiii 
total deslruclion by the mysterious radiation. To accom- 
olish diis task. vou'v(! been giviMi diree i-emole-conlrolleil 



the Rocks and land on the disiiosal pad. when^ a c;anister 
of waste will be automatically loaded oiilo your |)od. Next, 
you must |)ilot your shi)) back through Ihe Rocks and 
teleport the canister into one of (he passing fleet ships, 
which will transport it lo deep space, to be harmlessly dis- 
persed . 

Allliongli this may sound simple, it's not. Any collision 
between your pod and another obj eicl will result in the 
ir,o^. r.f t)-in I it^n^i^^^MMH^— ^M^iiri II f li urouiid 
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XL/XE HARDWARE 



INTERFACES 

ICD 

P:R Connection $59.99 

Printer Connection 49.99 

Supra 

Microprint 39.99 

1150 39.99 

1151 (1200 XL) 39.99 

Xetec 

Graphix Interface 39.99 

Atari 

850 Interface 109.00 

COMPUTERS 



Atari 130XE $129°° 

65XE 94.99 

800 XL 63.99 

800 XL Package (1050 Drive, 1025 Printer, 
Joystick & Diskettes) 329.00 

MEMORY 

Axlon 

32K Board 19.99 

48K Board 49.99 

128K RAM Disk 119.00 

MODEMS 

Atari 

SX212 300/1200 (ST) 99.99 

835 24.99 

XMM301 44.99 

Anchor 

VM520 300/1200 Direct Connect (ST)1 29.00 

Volksmodem 49.99 

Volksmodem 1200 129.00 

Supra 

1200 AT or ST 139.00 



ST HARDWARE 




1040 Monochrome *^rtr> 
System *o99 

Includes: 1040ST, 1 mb RAM with 3V2" 
drive built-in, 192K ROM with TOS, Basic, 
Logo, ST language, power supply and 
monochrome monitor. 

1040 RGB/Color System 879.00 

520 Monochrome System (Includes: 520ST 
computer with modulator, disk drive, 
mouse, logo, Basic and monochrome 

monitor) 499.00 

520 RGB/Color System 759.00 

SM124 Monochrome Monitor 129.00 

SM1224 Color Monitor 319.00 

1040 Computer (no monitor) 569.00 

Call for prices on the new Atari line of com- 
puters: 520ST FM/the increased RAM 1040 
systems/Atari PC compatible/Atari Laser 
Printer/XDM Daisywheel. 



DRIVES 



Atari 

AA354 SS/DD Disk (ST) $129.00 

SHD204 20 Meg Hard Drive (ST)... 599.00 
AA314 DS/DD Disk (ST) 199.00 




Atari 1050 *-#***/>« 

SS/DD Disk (XL/XE)* 139"" 

Indus 

GT Disk Drive (XL/XE) 179.00 

Supra 

20 Meg Hard Drive (XL/XE) 679.00 

20 Meg Hard Drive (ST) 569.00 

30 Meg Hard Drive (ST) 789.00 



PRINTERS 



Atari 

1020 XL/XE $29.99 

1025 XL/XE 119.00 

1027 XL/XE 119.00 

XMM801 XL/XE 199.00 

I 




'•■:■■■■: /iaaSKf'iaSiSS^ 

Atari ut^ork 

XMM804 ST ''*lo9 

Citizen 

MSP-10 (80 col.) 289.00 

MSP-20 (80 col.) 339.00 

Premier 35 cps Daisywheel 489.00 

C.ltoh 

Prowriter 1550P (132 col.) 269.00 

Prowriter 8510SP Call 

Epson 

LX86, FX85 Call 

FX86E, FX286E (240 cps) Call 

EX800, EX1000, RX100 Call 

LQ800, LQ1000 Call 

Jul<i 

5510 Color Dot Matrix Call 

6100 10 cps Daisywheel Call 

6300 40 cps Daisywheel Call 

NEC 

ELF360 20 cps 389.00 

3000 Series Spinwriter 35 cps 779.00 

Pinwriter 560-660-760 Call 

Okidata 

Okimate 20 129.00 

ML-182, ML-192, ML-193 Call 

ML-292, ML-293 Call 

Panasonic 

KX-10801 120 cps 80 col 209.00 

KX-1592 180 cps 132 col 439.00 

Star IVIicronics 

NX-10 120 cps 80 col 209.00 

NX-15 120 cps 132 col 379.00 

Tosliiba 

P321 216 cps 24 pin 479.00 

P351 288 cps 24 pin 1049.00 
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CIRCLE #123 ON READER SERVICE CARD 



you want to talk to us. 



XL/XE SOFTWARE 



Access 

Leaderboard Golf $26.99 

Tournament Disk 14.99 

Accolade 

Fight Night 19.99 

Hardball 19.99 

Atari 

Various Titles from $3.49 

Batteries Included 

Paperclip w/Spellpack 39.99 

B-Graph 37.99 

Broderbund 

Printshop 28.99 

Graphics Library 1-2-3 (ea.) 16.99 

Cygnus 

Starfleet 1 34.99 

Datasoft 

221 Baker St 21.99 

Electronic Arts 

Touchdown Football 13.99 

Chessmaster 2000 29.99 

Epyx 

World Karate Championship 24.99 

Infocom 

Zork III 29.99 

Microprose 

Top Gunner 19.99 

F-15 Strike Eagle 24.99 

Origin Systems 

Ultima 4 39,99 

Roklyn 

Gorf/Wizard of Wor/AT Deluxe/ 

Anti-Sub/Journey to Planet (ea.) 3.49 

Strategic Simulations 

Gemstone Warrior 12.95 

Sublogic 

Flight Simulator II 37.99 

X-Lent 

Typesetter 24.99 




AtariWriter Plus $3499 




DISKETTES 



IVIaxell 

MXDI SS/DD 51/4" $9.99 

MXD2 DS/DD 51/4" 10.99 

MXD3 SS/DD 31/2" 12.99 

MXF2 DS/DD 3V2" 21.99 

[ jnaxeii 

^— ^ i'% ' 
nrnffll "^^g* ■• V. 

may-}} ' ^i^'X. 

Sony 

SCMD1 SS/DD 51/4" 8.99 

SGMD2 DS/DD 5V4" 10.99 

SCMFD1 SS/DD 3V2" 13.99 

SCMFD2 DS/DD 3V2" 20.99 

Flip N File Disk Holders 

FF100 51/4" (100) 19.99 

FF15D 51/4" (15) 6.99 

FF737 31/2" (25) 9.99 

Curtis Protectors & Accessories 

Emerald 39.99 

Safety Strip 19.99 

Universal Printer Stand 14.99 

ICD (XUXE) 

Sparta DOS Contruction Set 28.99 

US Doubler/Sparta DOS 49.99 

Happy Archiver (1050) 36.99 

Rambo XL 29.99 

Multi I/O Board 256K 179.00 

Multi I/O Board 1 Meg 299.00 



ST SOFTWARE 



Activision 

Music Studio 37.99 

Antic 

Cad 3-D 34.99 

Atari 

Star Raiders 19.99 

Batteries Included 

Degas Elite 48.99 

Paperclip Elite 79.99 

Cygnus 

Starfleet 1 35.99 



ST SOFTWARE 



Ditek 

STA Accounts 174.99 

Electronic Arts 

Chessmaster 2000 34.99 

Epyx 

Winter Games 27.99 

First Byte 

Math Talk (Educ.) 34.99 

Haba 

Habawriter 34.99 

Hippopotamus 

Hippo Backgammon 27.99 

Infocom 

Zork Trilogy 44.99 

Michtron 

Major Motion 25.99 

Microprose 

Silent Service 26.99 

F-15 Strike Eagle 29.99 

OSS 

Personal Pascal 47.99 




Access ^^/^QQ 

Leaderboard Golf *2d^^ 

Paradox 

Wanderer (3-D) 29.99 

Polarware 

Crimson Crown 26.99 

Psygnosis 

Arena 26.99 

Sierra On Line 

Winnie The Pooh (Educ.) 18.99 

Sublogic 

FligW Simulator II 37.99 

Timeworks 

Wordwriter ST 51.99 

VIP 

Professional (GEM) 144.99 

X-Lent 

Typsetter 27.99 



in the U.S.A. and in Canada 

Call toll-free: 1-800-233-8950. 

Outside the U.S.A. call 717-327-9575 Telex 5106017898 

Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 

CMO. 477 East Third Street, Dept. B705, Williamsport, PA 17701 
ALL MAJOR CREDIT CARDS ACCEPTED. 

POLICY: Add 3% (minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks 
to clear. For faster delivery use your credit card or send cashier's check or bank money order. Pennsylvania residents add 6% sales tax. All prices are U.S.A. 
prices and are subject to change and all items are subject to availability. Defective software will be replaced with the same item only. Hardware will be replaced 
or repaired at our discretion within the terms and limits of the manufacturer's warranty. We cannot guarantee compatibility. All sales are final and returned shipments 
are subject to a restocking fee. 



CIRCLE #123 ON READER SERVICE CARD 




ATARI HARDWARE 



1050 Distt Drive ,.. 


,,..$124.77 


1027 Primer 


,,,,$ 99.00 
.. ,$ 09.00 


65XE 


$ 79.00 




,. ,,$199.00 


Atari 860 Interface 

Data Casset XM11 


,,,,$124.90 
S 39,77 




ATARI ST SYSTEMS I 


520 ST Computer 
SF 354 Disk Drive 
SC 1224 Monitor 

Basic Logo First Word $747.77 

w/SF 314 Disl< Drive add $112.00 



ATARI 128K 
Word Processing System 



130XE Computer 

1050 Disk Drive 

1027 Printer 

Atariwriter Plus 

2 Games 


$377.77 


SPECIAL 


Atari SM B01 Modem 

AVATEX 1200 Baud Modem, 


$ 37.77 
S 99.00 


ST HARDWARE ^ 1 


Atari 20 MB Hard Drive 

SF 354 Drive,,. 


...CAa 
$139.90 
$189.90 

$329.90 


Sf 314 Drive 


SC 1224 Monitor 


1 


EPSON PRINTERS 


IX 80 wmactor 


$259.90 


FXB5. 


$37990 


FX268 






1040 COLOR 

& 

MONO SYSTEMS 


IN STOCK 
CALL FOR PRICING 


SPECIAL 




Hippovision 




Okimate 10 Color Printer 
with Plug-n-Play 


..$179.90 



Winner's V/i" DSDD $ 21.50 

SSDD 3'/!" $ 17.90 

DSDD 3'A- $ 23.50 



ST SOFTWARE 



Personal PASCAL $ 44.97 

MCC PASCAL CAa 

Hippo V $ 44.97 

Macro Assembler $47.97 

Hippo RAM Disll $ 20.97 

Leader Board $ 23.77 

Habba View $ 44.97 

Habba Writer $ 44.97 

Habbacom $ 29.77 

Easy Draw $ 89.97 

D,E,G,A,S $ 23.77 

Rogue $ 23.77 

Winter Games $ 23.77 

DB Master S 29.77 

Prinlmaster $ 23.77 

Sundog $ 23.77 

Infocom Call 

Mindshadow $ 29.77 

Haclier II $ 29.77 

Borrowed Time $29.77 

Winnie the Pooli $ 14.97 

TtiePawn $ 26.97 

Kings Quest III $ 29.77 

Homework Helper S 29.77 

Mark Williams 'C $107.97 

Lattice 'C Compiler $ 89.97 

Hippo Bisk Utilities $ 29.77 

Hippospell $ 23.77 

Degas Elite $ 47.77 

Silent Service $ 23.77 

Skytox $ 28.77 



PANASONIC PRINTERS 



KXP 1080 $199.00 

KXP 1091 $249.00 

KXP 3131 Daisy Wheel $279.00 

Panasonic Ribbons $ 8.77 

Parallel Printer Cable $ 18.70 



MICRO-PROSE 



Gunship $ 21 .77 

Tpp Gunner $ 19.77 

F-15 Strike Eagle $ 20.77 



KOALA TECHNOLOGIES 
CLOSEOUT 



Koala Pad $ 39.90 

Muppel Learning Keys $ 14.90 



BATTERIES INCLUDED 



Paperclip $ 31.77 

Paperclip w/Speilpack $ 37.77 




ORDERS ONLY 



1-800-233-6349^ 



226 Lincoln Road 
Miami Beacl^, FL 33139 



lilMPUTEC 

y VICE 

J "SUPER S 



"SUPER SPECIALS" 






INFOCOM FOR ATARI ST 



»^^^t^ 



Cutthroats 
ZorkI 
Zork II 
Zork III 
Planettall 
Spellbreaker 
Suspended 
p Suspect 



Your Ctioice 

^ 22oOea 



^k 



o^ 



J^ 






5% Cleaner 
$777 






SYNAPSE 



Institute 
:* Lazer Racer 
Snapper . . 



«6" 

Codewriter *14" 

t-ompuier i,oacn SA77 

Keyboord Coacti *7" Songwriter 'O 



Mostertype 
Computer Coach 



Castle Wolfensteln . 




$^77 Gorf 
^ Anti Sub Patrol . 



Fro 

QBdrf 

Popeye __ 

Astro Chase 

Chess 

Frogger 

Frogg«(r II Threedeep 

Gyruss 

JameBjSSnd 

Star Vlfqri, Arcade Game . 

Super;'Cdbra *7 



Addlti<>ri with Carrying 

Adv. of Oswald with Cassette 

Alphabet Arcade 

Astro Quotes 

Cash Register 

Do II Yourself Spelling 

Kross N Quotes ;. 

Mini-Crossword v|| 

f^ini-Crossword 'H 

r\/loon Bose lO-flf 

l\^usic Box 

Number Series ■^m,;,,^. 

Picture Blocks ''■"•tjl. 

Preparing for the SAT 

Preschool IQ Builder I 



Montezuma's Revenge 
Run For The Money 
Asylum Disk & Car. 
Kaiv 

Encounter 



Computerized Card File 
Decision Maker 
Pro Bowling . 

Reverse II 'O' 




Star Island 
Joy Extenders . 



*4 



77 



H' 



Conversational German 

Conversational Italian 

Aiggle's Rainbow 

Juggle's Rainbow 

States & Capitols 

Mortgage & Loan Analysis 

Statistics 

Vlideo Easel 

Coinp. for People-10 Books 

Fall '82 

820 Printer Ribbon *4" 

825-80 Co. Printer Ribbon Any 5 

826-ap Col. Printer Paper ."" '^^ 



ORDERS ONLY 



1-800-331-7054 



CUSTOMER SERVICE OR IN FLORIDA (305) 538-1364 

FREE FREIGHT ON ALL ORDERS WITHIN CONTINENTAL U.S. OVER $100.00 

Orders under $100.00 add $4.00 shipping and handling. COD. orders add $4.00. 
Prices reflect a 3% cash discount. A.P.O., F.P.O. orders add 6% shipping & handling. Postal orders shipped surface 
Add 6% for air stripment. Add 3% for VISA/f^C. Florida residents add 5% sales tax. Personal checks allow 2 weeks for processing. 

Prices Subject to Change Without Notice. 

ORDERS RECEIVED BEFORE 12:00 PM WILL BE SHIPPED SAME DAY. 




CIRCLE #124 ON READER SERVICE CARD 



^ Rocks! 



continued 



the radiation level gets high enough, strange discharges 
may destroy your pod. 

To further complicate matters, enemy spy satellites have 
been reported scouting the area. These satellites will ex- 
plode on contact, also destroying yom- pod. Finally, if you 
manage to remove five canisters from a dump, you'll move 
to the next planet and be given another spare pod. If the 
radiation level gets too high, the planet will be devastated 
— and your services will no longer be required. 

Typing it in. 

Listing 1 is the BASIC data used to create your copy of 
Rocks! Please see M/L Editor on page 10 for typing in- 
structions. 

Playing Rocks! 

Rocks! is a game for one player, and requires one joystick 
and 24K of memory on any 8-bit Atari computer. The start- 
ing level is selected at the beginning of the game on the 
title screen, by pressing the SELECT key. 

The game will begin when the START key is pressed. 
If you want to abort a game and start a new game, you 
may press START during play. If you'd like to change the 
starting level during a game, you may press SELECT to 
abort the current game and return to the title screen, 
where a new level may be chosen. 

You start the game above the first planet, with the fleet 
passing above you and the Rocks immediately below you. 
Beneath the Rocks lies the planet's atmosphere; below that 
is the waste dump. The bottom of the screen displays the 
instruments aboard your pod. These instruments include: 
C. the number of canisters yet to be moved; RADS, your 
radiation meter; FUEL, your fuel gauge; and, finally, P, 
the number of pods you have. 

You move in space by pushing your joystick in any of 
the eight standard directions. The pod will move in that 
direction. When you head into the atmosphere, the planet's 
gravity starts to pull on your pod, so you can move left 
or right normally, but must use upward thrust to deceler- 
ate a fall and to accelerate upward. 

To land, you must center your pod above the disposal 
pad and thrust upward to slow yoiu- fall. You must be fall- 
ing slowly at the point of contact with the pad, or you'll 
crash. Do not attempt to land with a canister on board your 
pod, because the shock will detonate the unstable waste. 

I^ushing the joystick button when a canister is on your 
pod will activate the teleport beam. If this beam makes 
contact with one of the fleet ships, the canister will 
teleport aboard that ship, and the radiation level will de- 
crease. If the beam expends itself, or contacts an object, 
the canister will disperse, but the radiation will remain. 

As above, when five canisters have been removed from 
a dump, you'll move on to the next planet, advance one 
level and be given another spare pod. When all five 
canisters have been removed from each of the ten planets, 
you'll return to the first planet to continue the task. At this 
point, you will have reached the highest difficulty and will 
remain at this level. 

The game is lost if the radiation level reaches maximum 
and destroys the current planet, or if you lose all of your 
pods. Good luck, and watch out for the Rocks! H 



Douglas Engel has an A.A.S. in EJectn'caJ Technology 
and has been a computer enthusiast since 1981. He oivns 
an Atari 2600, 600XL, 800XL and 520ST. and numerous 
peripherals. Rocks! is his first assembly language game. 
His other interests include art. animation and automobiles 
(especially classic T-Birds]. 

Listing 1. 
M/L Editor Data. 

1000 DATA 255,255,0,32,246,47,169,3,14 

1,15,210,169,22,141,8,2,2781 

1010 DATA 169,38,141,9,2,169,29,141,19 

5,2,169,0,141,8,210,133,4926 

1020 DATA 204,133,206,173,244,2,133,28 

5,169,64,133,207,160,64,162,1,8133 

1030 DATA 177,204,145,206,200,208,249, 

230,205,230,207,202,16,242,169,64,4706 

1040 DATA 141,244,2,160,0,162,0,189,21 

6,70,141,26,80,142,27,80,4019 

1050 DATA 162,7,173,26,80,10,141,26,80 

,144,4,159,73,208,2,169,4331 

1060 DATA 0,153,224,59,200,202,16,234, 

174,27,80,232,224,25,208,215,1792 

1070 DATA 169,64,141,14,212,169,0,141, 

47,2,160,98,162,228,169,7,6372 

1080 DATA 32,92,228,169,136,141,48,2,1 

69,61,141,49,2,169,11,141,3617 

1090 DATA 0,2,169,38,141,1,2,169,192,1 

41,14,212,32,41,36,32,1708 

1100 DATA 68,37,133,77,141,200,2,169,2 

,141,196,2,169,4,141,197,6348 

1110 DATA 2,169,6,141,198,2,169,134,14 

1,199,2,173,95,71,141,201,8206 

1120 DATA 60,169,34,141,47,2,173,31,20 

8,201,7,240,249,133,77,201,199 

1130 DATA 5,208,17,238,201,60,173,201, 

60,201,26,208,20,169,16,141,7192 

1140 DATA 201,60,208,13,261,6,208,222, 

173,31,208,201,7,208,249,240,3555 

1150 DATA 36,141,95,71,162,64,160,0,20 

0,208,253,202,208,250,162,112,3864 

1160 DATA 160,8,173,57,80,200,208,250, 

173,31,208,201,7,240,183,202,3118 

1170 DATA 208,240,76,192,32,169,0,141, 

47,2,141,96,71,133,77,162,4834 

1180 DATA 7,169,16,157,87,71,202,16,25 

0,169,19,141,218,59,173,95,8220 

1190 DATA 71,141,201,60,141,97,71,169, 

80,160,8,162,1,32,17,37,1094 

1200 DATA 32,68,37,32,41,36,169,5,141, 

129,66,141,134,66,169,168,6117 

1210 DATA 141,165,66,169,21,141,183,59 

,141,37,80,169,3,141,29,208,5582 

1220 DATA 169,80,141,7,212,169,0,162,1 

67,157,168,61,202,16,250,169,327 

1230 DATA 83, 160,0, 162, 5j3;i, 17, 37, 169, 

83, 133, 205, 169, 0,133, 20.1, 6b4 3 

1240 DATA 169,41,168,169,1:58,145,204,2 

30,204,145,204,198,204,152,24,105,2175 

1250 DATA 8,144,239,162,215,189,0,83,9 

,5,157,0,83,232,224,224,8913 

1260 DATA 208,243,162,10,173,10,210,24 

0,251,157,32,62,173,10,210,240,1099 

1270 DATA 251,157,56,62,202,16,237,169 

,48,160,0,162,9,32,17,37,1756 

1280 DATA 162,2,169,51,133,205,169,8,1 

33,204,32,137,37,201,6,144,6157 

1290 DATA 38,24,105,64,160,0,145,204,3 

2,137,37,141,57,80,32,79,2756 

1300 DATA 37,141,58,80,169,13,56,237,5 

8,80,24,109,57,80,24,101,2055 

1310 DATA 204,176,61,133,204,144,211,1 

41,26,80,165,204,201,254,176,202,4408 
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continued 



1326 DftTft 173,26,80,41,254,105,64,160, 

0,145,204,24,185,1,288,145,6258 

1330 DflTft 204,32,137,37,141,57,80,32,7 

9,37,141,58,80,169,14,56,1860 

1340 DftTft 237,58,80,24,109,57,80,24,10 

1,204,176,4,133,204,144,154,7810 

1350 DftTfl 230,205,230,205,202,16,143,1 

69,49,133,205,169,0,133,204,160,495 

1360 DATA 0,169,208,145,204,200,169,81 

,145,204,200,32,131,37,24,105,7143 

1370 DATA 3,141,26,80,169,82,145,204,2 

00,204,26,80,208,248,169,83,1162 

1380 DATA 145,204,200,169,212,145,204, 

200,152,24,101,204,133,204,32,137,591 

1390 DATA 37,109,201,60,109,201,60,105 

,32,24,101,204,176,6,133,204,7217 

1400 DATA 201,240,144,187,162,3,169,0, 

133 , 204, 169 , 49 , 133 , 205, 160 , 0, 7955 

1410 DATA 177,204,230,205,145,204,198, 

205,200,192,48,208,243,230,205,230,835 

8 

1420 DATA 205,202,16,234,169,2,141,169 

, 61, 169, 3, 141, 217, 61, 162, 4, 6342 

1430 DATA 173,10,210,41,3,240,249,201, 

3,240,245,157,168,61,201,1,298 

1440 DATA 208,7,169,4,157,240,61,208,5 

,169,0,157,240,61,169,0,6629 

1450 DATA 157,8,62,232,224,11,208,216, 

162,4,32,137,37,105,1,157,5079 

1460 DATA 216,61,173,10,210,201,48,144 

,5,41,3,157,216,61,232,224,9199 

1470 DATA 11,208,231,169,48,141,48,2,1 

69,61,141,49,2,32,57,36,879 

1480 DATA 169,158,141,0,2,169,37,141,1 

,2,160,30,162,38,169,7,2233 

1490 DATA 32,92,228,169,63,141,47,2,20 

8,47,173,43,80,240,2,208,7091 

1500 DATA 40,173,31,208,201,7,208,22,1 

73,30,80,162,0,142,30,80,3889 

1510 DATA 201,5,208,3,76,106,32,201,6, 

208,6,76,15,33,141,30,1569 

1520 DATA 80,173,35,80,240,212,76,49,3 

3,32,85,37,32,68,37,169,2390 

1530 DATA 48,141,62,80,169,126,141,28, 

80,32,31,36,173,17,80,240,4518 

1540 DATA 20,206,218,59,173,218,59,201 

,16,208,10,162,18,32,247,36,6297 

1550 DATA 169,255,141,25,80,169,87,141 

,41,80,169,152,141,22,80,169,6800 

1560 DATA 125,141,53,80,169,108,141,19 

3,2,169,149,141,192,2,32,143,6801 

1570 DATA 37,141,38,80,141,17,80,141,2 

4,80,141,14,80,141,44,80,2507 

1580 DATA 141,16,80,141,43,80,141,10,8 

0,169,255,141,21,80,169,1,5170 

1590 DATA 141,20,80,141,36,80,173,201, 

60,24,105,192,141,223,60,173,8916 

1600 DATA 201,60,201,25,208,12,169,209 

, 141 , 249 , 60, 169 , 208, 141, 250 , 60, 2426 

1610 DATA 208,11,24,105,193,141,250,60 

,169,208,141,249,60,173,25,80,9370 

1620 DATA 208,20,162,6,32,247,36,169,0 

,141,64,80,169,255,141,37,7172 

1630 DATA 80,169,180,141,63,80,32,179, 

36,76,20,35,172,34,80,216,4695 

1640 DATA 174,12,80,189,87,71,24,105,1 

,201,26,176,12,157,87,71,3915 

1650 DATA 136,208,237,169,255,141,36,8 

0,96,24,233,9,157,87,71,202,7933 

1660 DATA 16,225,76,20,35,169,84,160,0 

,162,2,32,17,37,96,162,2288 

1670 DATA 17,159,0,157,0,208,202,16,25 

0,96,69,79,37,78,96,162,5965 

1680 DATA 119,189,80,62,157,200,62,157 

,64,63,224,70,240,12,224,46,8234 

1690 DATA 240,8,224,22,240,4,202,16,23 

2,96,160,10,173,97,71,41,5728 

1700 DATA 15,10,10,10,10,77,97,71,10,4 



1,247,93,80,62,157,200,5360 

1710 DATA 62,157,64,63,202,136,16,228, 

48,199,169,0,133,224,169,68,9061 

1720 DATA 133,225,169,12,133,226,169,6 

8,133,227,96,173,10,210,41,24,7274 

1730 DATA 72,29,0,84,157,0,84,104,29,0 

,85,157,0,85,238,23,2609 

1740 DATA 80,238,23,80,96,173,10,210,1 

72,18,80,192,1,208,5,41,4521 

1750 DATA 3,76,138,36,41,192,76,138,36 

,173,28,80,141,0,208,141,5987 

1760 DATA 1,208,24,105,3,141,6,208,174 

,62,80,202,169,0,157,0,5278 

1770 DATA 84,157,0,85,232,160,0,177,22 

4,157,0,04,177,226,157,0,8458 

1780 DATA 85,232,200,192,12,208,240,17 

3,36,80,240,16,162,7,189,87,8456 

1790 DATA 71,157,8,48,202,16,247,169,0 

,141,36,80,96,160,0,189,5856 

1800 DATA 112,61,153,88,61,232,200,192 

,6,208,244,96,169,0,162,25,8475 

1810 DATA 157,116,87,202,16,250,96,133 

,205,132,204,169,0,168,145,204,1812 

1820 DATA 200,208,251,230,205,202,208, 

246,96,141,26,80,32,125,37,208,9339 

1830 DATA 21,173,26,80,141,26,80,142,2 

7,80,162,7,42,110,26,80,1817 

1840 DATA 202,16,249,174,27,88,173,26, 

80, 96, 169, 0, 162, 7, 157, 1, 3665 

1850 DATA 210,202,16,250,96,173,201,60 

,41,15,96,174,62,80,232,232,9698 

I860 DATA 160,35,169,207,61,0,83,157,0 

, 83 , 202, 136 , 208, 244, 169, , 8906 

1870 DATA 141,5,80,141,4,80,141,6,80,1 

41, 32, 80, 141, 7, 210, 32, 3395 

1880 DATA 116,36,96,173,10,210,41,1,96 

,173,10,210,41,7,96,173,4716 

1890 DATA 10,210,41,15,96,169,0,141,31 

,80,141,0,80,141,3,80,2094 

1900 DATA 141,2,80,96,72,138,72,166,20 

2,141,10,212,189,160,63,141,9469 

1910 DATA 26,208,189,240,61,141,4,212, 

141,10,212,189,88,63,141,23,7232 

1920 DATA 208,189,112,63,141,24,208,18 

9,136,63,141,25,208,189,64,63,7934 

1930 DATA 141,22,208,189,32,62,240,16, 

141,10,212,141,7,208,189,32,7578 

1940 DATA 62,24,125,56,62,141,10,212,1 

41,7,208,230,202,189,9,71,8501 

1950 DATA 141,10,212,141,27,208,224,2, 

208,6,173,2,208,141,33,80,6590 

I960 DATA 224,11,208,9,173,48,80,32,52 

,36,141,21,208,104,170,104,5840 

1970 DATA 64,72,169,54,32,52,36,141,22 

, 208, 104, 64, 173, 9, 210, 141, 6724 

1980 DATA 252,2,104,64,173,43,80,240,3 

,76,138,47,169,0,133,202,6700 

1990 DATA 141,18,80,173,37,80,240,3,76 

,138,47,173,25,80,240,13,5378 

2000 DATA 173,132,2,208,5,104,104,76,1 

5,33,76,211,47,173,13,80,3601 

2010 DATA 208,3,76,211,38,238,15,80,17 

3,15,80,201,56,144,18,201,6888 

2020 DATA 224,144,61,162,18,142,25,80, 

32,247,36,32,68,37,76,138,3408 

2030 DATA 47,162,3,32,43,36,162,12,189 

,40,63,24,105,1,41,15,9515 

2040 DATA 9,112,157,40,63,157,160,63,1 

41,0,210,105,32,141,2,210,6404 

2050 DATA 169,207,141,1,210,141,3,210, 

232,224,19,208,219,76,138,47,423 

2060 DATA 162,119,173,42,80,41,15,93,2 

00,62,157,200,62,157,64,63,6161 

2070 DATA 169,15,141,1,210,141,3,210,1 

69,143,141,5,210,141,7,210,9024 

2080 DATA 173,15,80,141,0,210,10,141,2 

, 210, 10, 141, 4, 210, 73, 255, 7632 

2090 DATA 141,6,210,202,16,204,76,138, 
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47,162,23,189,168,61,248,183,9471 

2186 DATA 189,192,61,221,216,61,144,92 

,169,8,157,192,61,189,168,61,9417 

2118 DATA 281,2,248,43,169,3,56,253,8, 

62,157,248,61,254,8,62,7246 

2128 DATA 189,8,62,281,4,288,64,157,24 

8,61,169,8,157,8,62,142,6271 

2138 DATA 27,88,189,241,78,178,254,48, 

61,174,27,88,76,65,39,254,7473 

2148 DATA 8,62,189,8,62,157,248,61,281 

,4,288,27,169,8,157,248,9144 

2158 DATA 61,157,8,62,142,27,88,189,24 

1,70,178,222,48,61,174,27,7664 

2168 DATA 88,76,65,39,254,192,61,282,1 

6,145,238,54,89,173,54,88,7628 

2178 DATA 281,128,288,12,162,18,222,32 

, 62, 282 , 16, 256, 232 , 142, 54 , 88 , 8827 

2186 DATA 238,55,88,173,55,88,281,28,2 

48,14,281,38,246,17,281,58,8818 

2196 DATA 246,28,281,68,248,28,288,41, 

169,13,141,129,65,268,122,169,9519 

2268 DATA 5,141,129,66,268,115,169,13, 

141, 134, 66, 169, 184, 141, 165, 66, 9415 

2216 DATA 288,183,169,5,141,134,66,169 

,168,141,165,66,169,8,141,55,7195 

2226 DATA 88,238,8,88,173,8,88,281,48, 

248,6,281,68,248,12,288,9887 

2238 DATA 23,169,2,141,113,63,141,114, 

63,288,62,169,48,141,113,63,6557 

2248 DATA 141,114,63,169,8,141,8,88,23 

8,9,88,173,9,88,261,56,5352 

2258 DATA 246,6,261,72,248,17,288,33,1 

69,127,141,244,67,169,247,141,2883 

2266 DATA 262,67,141,286,67,288,18,169 

,63,141,244,67,169,243,141,282,3315 

2278 DATA 67,141,286,67,169,8,141,9,88 

,173,17,88,248,3,76,148,5676 

2286 DATA 41,173,31,88,288,122,173,62, 

86,281,192,288,3,76,219,48,8925 

2298 DATA 285,53,89,176,3,76,26,41,238 

,24,88,173,24,88,281,19,4471 

2386 DATA 268,59,169,9,141,24,88,173,1 

4,86,248,4,159,255,288,3,8475 

2318 DATA 173,128,2,77,28,88,41,1,288, 

12,286,59,88,288,38,169,5984 

2326 DATA 1,141,59,88,288,23,238,59,88 

,173,59,88,281,16,288,13,6648 

2336 DATA 169,15,141,59,88,173,28,88,7 

3,1,141,28,88,173,59,88,3491 

2346 DATA 238,8,86,285,8,88,248,2,176, 

13,159,8,141,8,89,173,5188 

2356 DATA 29,89,249,6,238,62,88,76,55, 

41,296,62,88,76,55,41,3584 

2368 DATA 173,32,88,288,28,238,2,88,28 

8,29,169,255,141,2,88,173,8761 

2376 DATA 128,2,41,1,248,3,76,189,41,1 

69,14,141,59,88,141,32,3662 

2386 DATA 88,32,143,37,141,28,88,174,3 

,86,189,33,71,285,2,88,4283 

2396 DATA 248,3,76,189,41,189,69,71,14 

1,1,218,189,51,71,141,8,5319 

2466 DATA 219,24,165,224,195,24,133,22 

4,169,8,181,225,133,225,24,165,652 

2418 DATA 226,185,24,133,226,169,8,181 

,227,133,227,238,3,88,76,189,9171 

2426 DATA 41,173,28,88,288,3,76,18,48, 

173,59,88,281,11,144,42,4219 

2436 DATA 173,32,88,288,37,173,28,88,2 

81,129,176,38,169,124,285,28,8649 

2446 DATA 88,176,23,169,6,141,12,88,14 

1,31,88,32,79,37,141,34,2264 

2456 DATA 88,238,34,88,32,246,35,76,18 

9,41,238,17,88,76,189,41,4525 

2460 DATA 169,1,141,28,88,169,8,141,59 

,88,173,14,88,268,33,173,6349 

2470 DATA 128,2,41,1,248,29,173,128,2, 

41,2,248,28,173,14,88,3872 

2486 DATA 288,14,173,129,2,41,4,249,22 



,173,129,2,41,8,248,25,3836 

2498 DATA 76,199,41,296,62,88,76,55,41 

,238,62,88,76,55,41,286,5553 

2588 DATA 28,89,169,1,141,18,88,288,18 

,238,28,88,169,2,141,18,4682 

2518 DATA 88,288,8,173,62,89,291,37,17 

6,5,169,37,141,62,88,173,6797 

2528 DATA 28,88,281,38,176,5,169,38,14 

1,28,88,169,289,285,28,86,7684 

2538 DATA 176,5,169,299,141,28,88,32,1 

79,36,173,45,88,298,113,238,9617 

2548 DATA 46,89,249,3,76,134,42,32,125 

,37,249,3,76,134,42,32,3389 

2558 DATA 125,37,248,7,169,1,141,49,88 

,298,5,169,254,141,49,88,7981 

2568 DATA 32,131,37,248,251,141,52,88, 

173,18,219,9,8,141,48,88,5183 

2578 DATA 32,137,37,285,96,71,176,2,14 

4,3,173,96,71,18,18,18,1715 

2588 DATA 178,166,9,189,288,69,153,126 

,87,232,298,192,8,288,244,169,4386 

2598 DATA 8,141,47,88,141,7,88,141,68, 

88,169,255,141,45,86,32,6282 

2699 DATA 131,37,298,7,169,255,141,56, 

88,298,5,169,9,141,56,89,6244 

2619 DATA 238,47,88,173,47,88,295,52,8 

8,288,113,173,58,88,288,88,8729 

2628 DATA 173,29,88,56,233,128,16,5,73 

, 255, 24, 185, 1, 141, 68, 88, 4298 

2638 DATA 169,255,56,237,68,88,74,74,7 

4,74,74,141,68,88,238,7,5889 

2648 DATA 88,173,7,88,281,11,144,26,28 

1,12,144,7,169,8,141,7,3715 

2658 DATA 88,248,29,169,168,13,68,89,1 

41,3,218,169,16,141,2,218,7128 

2668 DATA 288,14,173,68,88,74,9,128,14 

1,3,218,169,16,141,2,218,6795 

2678 DATA 169,8,141,47,88,173,29,88,24 

,189,49,88,141,29,88,141,4231 

2688 DATA 3,288,288,8,169,8,141,45,88, 

141,3,218,173,56,88,249,8783 

2698 DATA 3,238,48,88,238,39,89,173,39 

,86,281,56,288,18,169,8,6526 

2768 DATA 141,39,88,238,48,88,173,49,8 

8,281,255,288,3,141,13,88,7841 

2718 DATA 173,48,89,291,128,144,36,173 

,66,88,288,31,32,125,37,13,4138 

2729 DATA 42,88,288,23,173,18,218,291, 

38,176,2,144,247,281,289,144,2957 

2738 DATA 2,176,241,141,2,288,169,255, 

141,66,89,173,31,89,298,28,8828 

2748 DATA 238,23,88,173,23,88,291,113, 

144,18,169,9,141,23,89,266,6848 

2758 DATA 21,88,288,8,141,1,218,169,25 

5,141,14,88,173,13,88,246,9418 

2768 DATA 12, 173, 41, 88, 24, 185, 3i2, 141, 4 

,288,76,68,45,173,48,86,4318 

2778 DATA 74,74,74,24,189,41,88,141,4, 

288,173,14,88,248,14,174,7378 

2780 DATA 22,88,282,142,5,208,169,8,14 

1,53,88,248,13,173,21,80,6337 

2798 DATA 74,74,74,24,189,22,88,141,5, 

288,173,31,88,288,28,173,7115 

2868 DATA 32,88,248,15,173,17,88,288,1 

8,173,132,2,288,5,169,255,9648 

2818 DATA 141,5,88,173,5,88,288,3,76,1 

14,44,238,4,88,173,4,4873 

2828 DATA 88,281,1,248,3,76,56,44,169, 

8,141,4,89,173,19,298,5548 

2838 DATA 41,8,248,34,238,58,89,169,5, 

141,12,88,173,56,88,248,7765 

2848 DATA 3,296,12,88,32,79,37,141,34, 

88,238,34,88,32,246,35,5562 

2858 DATA 76,26,44,76,32,44,173,62,88, 

291,136,176,246,173,2,288,861 

2868 DATA 248,241,173,33,88,249,121,16 

9,5,141,12,86,169,1,141,16,5491 

2878 DATA 89,169,54,141,61,89,32,79,37 
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,141,34,86,238,34,88,32,4814 

2888 DATA 246,35,173,48,88,24,185,224, 

141,48,88,176,5,169,8,141,6294 

2898 DATA 48,88,286,183,59,173,183,59, 

281,16,288,68,173,218,59,281,2881 

2980 DATA 25,248,3,238,218,59,173,281, 

68,281,25,248,3,238,281,68,1688 

2918 DATA 173,96,71,281,15,248,3,238,9 

6,71,174,97,71,232,224,26,331 

2928 DATA 288,2,162,16,142,97,71,32,68 

,37,141,64,88,169,128,141,6498 

2938 DATA 18,88,141,63,88,141,37,88,16 

2,12,32,247,36,76,138,47,5168 

2948 DATA 32,85,37,76,142,44,238,6,88, 

169,42,141,7,210,173,6,6531 

2958 DATA 88,141,6,218,281,32,288,6,32 

,85,37,76,142,44,174,62,5392 

2968 DATA 88,232,232,169,287,61,8,83,1 

57,8,83,282,172,6,80,288,8411 

2978 DATA 169,287,224,35,288,6,32,85,3 

7,76,142,44,61,8,83,141,3822 

2988 DATA 26,88,169,48,45,18,218,248,2 

49,13,26,80,157,0,83,282,7675 

2998 DATA 136,208,221,169,287,61,0,83, 

173,12,208,13,13,288,41,12,4955 

3088 DATA 288,15,173,62,88,281,128,176 

,11,173,5,208,13,4,208,248,9488 

3818 DATA 3,238,17,80,32,137,37,9,171, 

141,194,2,173,17,88,248,7807 

3020 DATA 3,76,68,45,173,31,80,288,102 

,173,14,88,248,3,76,68,5986 

3038 DATA 45,173,120,2,41,15,201,15,24 

0,85,41,3,201,2,240,6,5445 

3040 DATA 201,1,240,19,208,28,173,62,8 

0,24,105,9,170,32,133,36,4406 

3050 DATA 232,32,133,36,76,220,44,174, 

62,80,232,32,133,36,202,32,7358 

3060 DATA 133,36,173,18,88,240,18,173, 

62,88,24,185,5,178,32,159,5581 

3070 DATA 36,173,1,88,73,255,141,1,80, 

208,34,173,44,88,281,8,6750 

3080 DATA 240,3,238,44,88,141,1,210,16 

9,24,141,0,210,208,14,173,9881 

3090 DATA 44,80,240,9,206,44,80,173,44 

,88,141,1,218,238,19,80,7674 

3100 DATA 173,19,88,201,64,208,7,169,8 

,141,19,88,248,28,201,48,7198 

3110 DATA 176,24,172,62,80,200,200,173 
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,2,88,285,34,71,176,6,205,8720 

3120 DATA 33,71,144,1,200,169,68,153,0 

,85,173,58,88,208,3,76,5997 

3130 DATA 217,45,169,0,141,56,80,169,3 

1,141,48,88,32,6,37,238,4937 

3140 DATA 51,88,173,51,80,201,56,144,2 

5,32,6,37,169,0,141,3,2639 

3150 DATA 208,141,29,88,141,58,80,141, 

51,80,141,45,80,141,3,210,6509 

3160 DATA 240,93,173,10,210,41,24,168, 

162,7,173,51,88,201,16,144,7394 

3170 DATA 11,201,40,176,7,169,1,141,11 

,208,288,33,169,64,237,51,8918 

3180 DATA 80,141,2,210,169,8,141,3,210 

,169,0,141,11,208,185,72,8546 

3190 DATA 70,32,35,37,157,126,87,200,2 

02,16,243,48,34,169,80,56,7458 

3200 DATA 237,51,88,141,2,210,169,15,1 

41,3,210,138,10,170,185,72,8618 

3210 DATA 78,32,35,37,157,118,87,157,1 

19,87,208,202,202,16,239,173,2723 

3220 DATA 66,88,288,3,76,109,46,238,65 

,80,173,65,88,201,108,208,212 

3230 DATA 25,169,0,141,5,210,141,65,80 

, 141, 66 , 88 , 141, 2 , 208, 178 , 8466 

3248 DATA 157,122,86,232,224,96,288,24 

8,240,105,201,54,176,46,169,42,2171 

3250 DATA 141,5,210,169,80,56,237,65,8 

8,141,26,88,32,137,37,77,5119 

3268 DATA 26,88,141,4,218,173,10,210,4 

1,12,168,162,4,185,104,78,7326 

3270 DATA 32,35,37,157,202,86,288,202, 

208,243,240,55,173,65,88,56,1518 

3280 DATA 233,32,141,4,210,169,0,141,2 

05,86,141,206,86,169,79,141,861 

3290 DATA 5,210,170,173,10,210,41,31,1 

68,185,120,70,157,123,86,157,9849 

3300 DATA 124,86,157,125,86,157,126,86 

,200,152,41,31,168,202,202,202,2926 

3310 DATA 202,16,230,173,50,88,288,8,1 

73,15,208,240,3,238,58,88,9452 

3320 DATA 173,16,80,240,34,201,1,208,2 

2,206,61,88,173,61,80,240,9884 

3330 DATA 14,74,74,9,64,141,7,210,169, 

32,141,6,210,208,8,169,8575 

3348 DATA 8,141,16,80,141,7,210,173,17 

,80,208,3,76,134,47,238,8245 

3350 DATA 38,80,169,48,24,109,38,80,14 

1,0,210,173,38,88,201,24,6595 

3360 DATA 144,28,281,48,176,3,76,28,47 

,201,80,144,59,201,120,144,8735 

3370 DATA 5,169,255,141,43,88,169,0,14 

1,1,218,76,134,47,32,179,7165 

3380 DATA 36,169,10,141,1,210,173,10,2 

10,41,24,168,174,62,80,232,9526 

3390 DATA 169,7,141,11,80,185,72,70,32 

,35,37,32,138,36,232,200,7021 

3400 DATA 206,11,88,16,240,76,134,47,3 

2,31,36,160,3,206,44,88,4679 

3418 DATA 240,13,136,16,248,173,44,88, 

74,74,74,74,141,1,210,76,6695 

3420 DATA 134,47,169,15,141,1,210,169, 

0,141,44,86,169,15,141,192,8196 

3430 DATA 2,141,193,2,173,28,80,56,233 

,4,141,0,208,24,165,8,4773 

3446 DATA 141,1,268,169,0,141,11,80,17 

3,62,80,56,233,4,170,173,8578 

3456 DATA 16,216,41,48,168,185,152,70, 

157,0,84,232,200,238,11,86,267 

3460 DATA 173,11,80,201,16,208,238,173 

,10,210,41,48,168,142,27,80,8151 

3470 DATA 185,152,70,141,26,80,32,46,3 

7,174,27,86,173,26,86,157,5590 

3486 DATA 6,85,262,200,206,11,80,173,1 

1,86,268,225,169,6,133,77,9467 

3496 DATA 141,36,268,173,64,86,268,46, 

206,63,80,208,66,169,180,141,1545 

3500 DATA 63,80,141,64,80,162,0,32,247 
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ABACUS BOOKS 

ST Gem Prog. Ret. 

ST Graphics & Sound CALL 

STInlernals FOR 

ST Machine LOW 

Language PRICES 

ST Midi Programming 
ST Peeks t Pokes 
ST 3'D Graphics 
ST Tricks a Tips 
A BACUS SOFTWAR E 

Assem/ProST $39 

Data Trisve ST S33 

Forlh/MT ST $33 

PalnlProST $33 

Text Pro ST $33 

ACADEMY 

Typing Tutor ST $23 

A CCES S 

Leader Board (D) $25 

Leader Board Golf ST $25 

L.B.Tourn. Disk #1 ST $14 

L.B.Tourn. Dl8k»1{D) $14 

Tenlh Frame ST $25 

Triple Pack: BH1, BH2, Raid 

Over Moscow (0) $14 

A CCOLAD E 

FIghl Night (D) $19 

Hardball (0) $19 

Mean 18 Golf ST $25 

Mean 16 Famous 

Course Disk ST $14 

ACjmSION 
Great American Cross 

Country Road Race (D) $16 

Hacker(D) $16 

Hacker2ST $33 

Music Studio ST $39 

MuslcSludlo(D| $23 

Palntworks ST $44 

Ponal ST $33 

Shanghai ST $29 

Tass Times In 

Tonetown ST $33 

AMERICAN EDUCATIONAL 



B RODERBUN D 

Champ. Loderunner(D) .$19 

Karaleka(D) $19 

Loderunnsr(D) $23 

Print Shop (D) $26 

Print Shop Graphics 

Lllxary»1,»2,ff3(D) $16 Ea. 
P.S. Companion 64K (D) . $23 
CENTRAL POINT 

Copy 2 ST $25 

CDA 

America Cooks Series: 

American ST $9.86 

Chinese ST $9.88 

French ST $9.88 

Italian ST $9.88 

Mexican ST $9.88 

DAWDSOW 

MathBlaster(D| $33 

Spell 11(D) $33 

Word Attack (D) $33 



C OMPUTE R 

Blology(O) $14 



French (D) 
Grammar (D) 
Science: Grades 31* (D) 
Science: Grades 5/6 (D) 
Science: Grades 7/6 (D) 
Spanish |D| 
ARTWORK 



$14 
$14 
$14 
$14 
$14 
$14 



Bridge 4.0(0) $16 

Bridge ST $19 

Hole In One Golf ST $14 

MallLlstST $14 

Strip Poker (D) $21 

Strip Poker ST $25 

Thai Boxing ST $14 

Female Data Disk 1 $14 

Male Data Disk 2 $14 

Female Data Disk 3 $14 

A VANTAG E 

Spy vs. Spy 1 12(0) $9.68 
BATTERIES INCLUDED 
B'Graph(D) $25 

Degas ST $23 

Degas Elite ST $49 

rS Talk ST $33 

Isgur Portlollo System ST$129 
Paperclip (D) $36 

Paperclip Elite ST Call 

Paperclip w/Spell 1 30XE $36 
Thunder ST $25 

Time Link ST $33 



Skyfox ST $29 

Star Fleet 1(D) $33 

Star Fleet 1 ST $33 

EPYX 

Ballblazer(D) $9.88 

Champ. Wrestling ST . $25 
Dragonrlders Pern (D) .$9.86 

KoronlsRllt(D) $9.88 

Rescue on FrBCtalus (D) $9.88 

Rogue ST $23 

Sub Battle Simulator ST $25 

Super Cycle ST $23 

Temple Apshal Trilogy (D) $14 
Temple Apstial Trilogy ST $14 

The Eidolon (D) $9.88 

Winter Games ST $23 

World Champ. Karate (D)$19 
World Champ. Karate ST $25 

World Games ST $25 

FIREBIRD 

Golden Path ST $29 

Guild of Thieves ST $29 



Wlshbrlnger(D) $23 

ZorVKD) $19 

Zork Trilogy (D) $39 

• All f/f/es In stock tor 
520 ST— Call tor prices 
MASTERTRONIC 

Action Biker (D) $6.88 

Elektragllde(D $6.88 

Magnum Joystick $12 

Nln|a(D) $6.88 

Speed King (D) $6.88 

The Last V8(D) $6.88 

Vegas Poker 

& Jackpot (D) $6.88 

MICHTRON 

BBS 2.0 ST $49 

Calendar ST $19 

Corner Man ST $33 

GFA Basic ST $49 

Karate Kid II ST $25 

Major Motion ST $25 

Match Point ST $25 



Bank SL Music Writer (D)$9.88 

Bop & Wrestle (D) $19 

BrattacusST $29 

Crossword Magic (D) $33 

High Roller ST $19 

Infiltrator (D) $19 

Trail Bla2er(D) $19 

MINDSCAPE CINEMAWARE 
Defender of the 

Crown ST Call 

S.D.I. ST $33 

SInbad: Throne of 

the Falcon ST Call 

The King of Chicago ST . Call 

MONOGRAM 

Dollars & Sense ST $65 

ORIGIN 

AutoduelST $33 

Ogro(D) $26 

Ogre ST $26 

Ultima 3 ST $39 

Ultima 3(D) $32 




Great Fantasy 
Role-Playing — 
You're a 
Techno- 
Scavenger 
Salvaging Hi- 
Tech Weapons 
from the 
Ancients! 



Great Fantasy 
Adventure — 
The EicJolon"'''^ 
Transports You 
Into a Magical 
Realm 




MONTHLY 
MADNESS 
SALE 

Your Choice 

188 



$9 



Each 



Special Bonus: 
Buy any 3, get the 
4th FREE 

Available for: Atari 
XL/XE (disk) 




Realistic, 

Three- 

Dimen- 

sional 

Depth 

Perception 



Realistic, 
Three- 
Dimen- 
sional Land- 
scape 



ELECTRONIC ARTS 
Soltwara Classic Sarlos: 
Age of Adventure (D) . $9.88 

Archon(D) $9.88 

Archon 2: Adept (D) $9.68 
Financial Cookbook (D) $9.88 
Mall Order Monsters (D) $9.88 
Movie Maker (D) $9.88 

M.U.L.E.(D) $9.88 

Music Const. Set (D) $9.88 

One<on'One(D) $9.66 

PInball Const. Set (D) $9.88 
Racing Dest. Set (D) $9.88 
Seven Cities of Gold (D) $9.88 
Super Boulder Dash (D) $9.88 
Touchdown Foott>all(D) $9.88 
ELECTRONIC ARTS 

ArllcfoxST $29 

Battle of Chlckamauga (D) $23 
Chessmaster 2000 (D) $26 
Chassmaster 2000 ST 
Financial Cookbook ST 
Lords of Conquest (D) 
New Tech 

Coloring Book ST . . 
Rommel Battles 

forTobruk(D) 



$29 
$33 

$23 

$14 
$26 



The Pawn ST $29 

Star Glider ST $29 

Tracker ST $29 

F IRST BYT E 

First Shapes ST $33 

Kid Talk ST $33 

Math Talk ST $33 

Speller Bee ST $33 

•T/iese programs talk! 

FJL 

Dungeonmaster ST . $25 

R.P.V. ST $25 

SundogST $25 

G AMESTA R 

Champ. Baseball ST $29 
Champ. Basketball ST $29 
H ITECH EXPRESSION S 
Award Ware (D) $9.68 

Card Ware (D) $6.88 

Heart Ware (D) $6.68 

Party Ware (D) $9.68 

INFOCOM 



MDlsk Plus ST $25 

Mighty Mall ST $33 

Personal Mor>ey Mgr. ST . $33 
PInball Factory ST $25 

Space Shuttle II ST $25 

Time Bandit ST $25 

Trim Base ST $59 

MICROLEAGUE 

$25 
$16 
$25 



Ballyhoo (D) 

Hitchhiker's Guide (D) 
Hollywood HlJlnx(O) 
Leather Goddesses (D) 



$23 
$23 
$23 
$23 



Baseball (D) 

Box Score Stats (D) 

General Manager (D) 

1965 Team Data Disk (D) $14 

1986 Team Data Disk $14 

WWF Wrestling ST Call 

MICROPROSE 

Conflict In Viet Nam (D) $25 

Crusade In Europe (D) ..$25 

Decision In Desert (D) $25 

F1 5 Strike Eagle (D) ... $23 

Kennedy Approach (D) . . $16 

Silent Service (D) $23 

Silent Service ST $25 

TopGunner(D) $18 

MILES COMPUTING 
Harrtef Strike Mission ST $33 
MINDSCAPE 



Ultima 4(D) $39 

Ultima Hint Books Call 

OSS 

Action (R) $47 

Action Tool Kit (D) $19 

Basic XE(R) $47 

Ba8lcXL(R) $37 

Basic XL Tool Kit (D) . . $19 

MAC 65 (R) $47 

MAC 85 Tool Kit (D) $19 

Personal Pascal ST $49 

R EGEN T 

Regent Base ST $49 

Regent Word 2 ST $49 

SIERRA 

Black Cauldron ST $25 

Donald Duck's 

Playground ST $16 

Kings Quest 

1,2,or3ST $33 Ea. 

Space Quest ST $33 

Winnie the Pooh ST $16 

SOFTLOGIC 

Publishing Partner ST . $95 

SOLID GOLD 



Trinity ST $25 Balance of Power ST $33 PIHall/Demon Attack (D) $8.68 



SS/ 

Battalion Commander (D) $25 
Battle of Antletam(D) $33 
Colonial Conquest (D) $25 
Gettysburg (D) $37 

Mech Brigade (D) $37 

NAM(D) $25 

Phantaslo(D) $25 

PhantesleST $25 

Phantasle2ST $25 

War Game Const. Set (D)$19 

Wizard's Crown (D) $25 

SUBLOGIC 

Flight Simulator 2 (D) $32 
Flight Simulator 2 ST $33 
F.S. Scenery Disks Call 

Jet ST Call 

SYNAPSE 

SynCalc(D) $33 

Syn-Flle(D) $33 

TDI 

Module 2 ST $49 

Module 2 (Oev.) ST $95 

TIMEWORKS 

Data Manager ST $49 

Sylvia Porter's 

SwHtaxST $49 

SwIftcalcST $49 

Word Writer ST $49 

TRONIX 

S.A.M.(D) $19 

UNICORN 

Animal Kingdom ST . $25 

Decimal Dungeon ST . $25 

Fraction Action ST $25 

KInderamaST $25 

Math Wizard ST $25 

Read* Rhyme ST $25 

UNISON WORLD 

Art Gallery 1 ST $19 

Art Gallery 2 ST $19 

Print Master Plus ST $25 

VALUE TIME 

CalendafS & Statkxiery STS9.88 

Greeting Cards ST $9.88 

Signs & Banners ST $9.88 

Art Library 1 or 2 ST $9.88 Ea 

V IP TECHNOLOGIE S 

VIP Prt><assk>na! (OEM) ST$148 

XLENT 

First XlentW.P.(D) $19 

Page Deslgner(D) $19 

Print Master Interface ST $19 

P.S. Interface (D) $19 

Rubber Stamp (D) $19 

Rubber Stamp ST $25 

Typesetter (D) $23 

Typesetter Elite ST $33 

Write 90' ST $19 

A CCESSOR/E S 

Anchor VM 520 300/1200 

Baud Modem ST . $129 
Bonus 5 74 SS.DD $5.99 Bx 
Bonus 5% DS, DD $6.99 Bx 

Bulk Disks 3V> Call 

CompuServe Starter Kit $19 

Disk Case (40-3'/!) $9 

Disk Case (75-5%) $9 

Disk Drive Cleaner-SVi $19 
Disk Drive Cleaner-5'/< $9 

Disk Nolcher $7 

Epyx 500XJ Joystick $14 
Supra 20 meg ST Drive Call 
WlcoBoss $12 

WIco Bat Handle $17 



P.O. BOX 111327— DEPT. AN — BLAWNOX, PA 15238 



'Please Read The Following Ordering Terrris & Conditions Carelully Before Placing Your Order Orders with cashiers check or money order shipped immediately on In stock Items. 
Personal & Company checks, allow 3 weeks clearance. No C.O.D.'s! Shipping: Continental U.S.A.— Orden under $100 add $3; lf&9 shipping on orders over %100. AK, HI. FPO, 
APO—add S5 on all orders. Canada A Puerto Rico— add S10 on all orders. Sorry, no other International orders accepted! PA residents add 6% saies tax on the total amount of order 
including shipping charges! REASONS FOR CALLING CUSTOMER SERVICE'-412-361-S291 (1) Status of order or back order (2) II any merchandise purchased within 60 days from 
S.O. of A. Is defective, please call for a retum authorization number. Defective merchandise will be replaced with the same merchandise only. Other returns subject to a 15% restock- 
ing charge. After 60 days please refer to the manufacturers wan-anty Included with the merchandise & return directly to the manufacturer. Customer service will not accept collect 
calls or calls on S.D. OF A.'s 8001* order lines! Have you seen our on line catalog of 1000 software titles lor Commodore. Atari, Apple, IBM and Amiga? It's on CompuServe's Elec- 
tronic Mall— just type GO SDA and shopping for software will never be the same again! HOURS: Mon.Frl. 9AM5:30 PM. Sat. 10AM-4PM Eastern Time. Because this ad had to be writ- 
ten 2-3 mos. before It was published, prices A avallablilty are subject to change! 



CIRCLE #126 ON READER SERVICE CARD 



^ Rocks! 



continued 



,36,173,10,80,240,12,169,7928 

3518 DATA 0,141,64,80,169,255,141,35,8 

0,288,5,169,8,141,37,80,6638 

3520 DATA 173,252,2,201,33,208,18,32,6 

8,37,173,37,80,73,255,141,8274 

3530 DATA 37,80,288,5,162,119,32,57,36 

,169,255,141,252,2,173,10,9145 

3540 DATA 210,141,42,80,173,37,80,13,2 

5,80,240,14,162,119,189,200,9869 

3550 DATA 62,32,52,36,157,64,63,282,16 

,244,76,98,228,8,58,223,9200 

3560 DATA 59,127,127,127,127,127,127,1 

27,127,127,127,127,127,127,127,127,764 

3578 DATA 85,98,92,89,127,127,127,127, 

127,127,127,127,127,127,127,127,469 

3580 DATA 127,127,127,127,127,127,127, 

87,91,92,88,127,127,127,127,127,9429 

3590 DATA 127,127,127,127,127,127,127, 

127,127,85,91,92,88,127,87,91,7943 

3600 DATA 94,96,98,98,92,88,87,89,127, 

127,127,127,85,91,92,89,7398 

3510 DATA 127,127,127,127,127,86,98,94 

,96,98,180,92,88,86,91,92,6646 

3620 DATA 89,92,89,85,98,92,88,86,91,9 

5,96,98,97,101,102,93,6500 

3630 DATA 94,96,100,97,105,106,95,99,9 

2,89,86,90,94,96,100,99,6616 

3640 DATA 92,88,127,85,90,95,94,95,96, 

97,99,105,106,93,96,98,6938 

3650 DATA 98,105,106,93,96,105,106,94, 

95,93,96,97,100,99,98,103,7061 

3660 DATA 104,96,105,106,94,93,94,98,1 

05,106,93,95,96,96,97,99,6964 

3670 DATA 98,97,181,182,93,93,95,96,96 

,185,186,94,95,94,96,97,6888 

3688 DATA 99,187,187,188,187,187,188,1 

88,188,187,188,189,118,111,118,111,849 

3698 DATA 109,108,188,107,108,107,108, 
110, 107, 188, 188, 107, 187, 188, 189, 111, 84 

3780 DATA 110,111,111,109,187,108,108, 

107,108,107,108,108,107,107,188,109,83 

75 

3710 DATA 111,112,114,113,114,112,113, 

114,112,114,114,113,114,112,114,112,90 

94 

3720 DATA 114,112,114,113,114,112,113, 

114, 112, 113, 114, 112, 114, 113, 112, 113, 90 

85 

3730 DATA 112,114,112,114,112,113,114, 

112,114,113,114,112,114,112,114,114,91 

32 

3740 DATA 112,115,116,117,115,116,125, 

115, 116, 115, 116, 117, 116, 115, 117, 115, 95 

3750 DATA 125,115,117,115,116,117,115, 

116,115,126,126,115,117,116,117,125,98 

92 

3760 DATA 116,116,115,117,116,117,116, 

116,116,117,115,125,115,115,116,117,96 

39 

3770 DATA 125,125,119,120,125,118,125, 

125, 118, 125, 125, 125, 119, 120, 125, 125, 47 

9 

3780 DATA 125,120,118,125,120,125,125, 

121,122,123,124,121,125,125,125,120,50 

3790 DATA 125,125,125,125,125,125,118, 

125, 125, 125, 125, 119, 125, 125, 125, 125, 66 

9 

3800 DATA 125,125,125,125,125,125,125, 

125,125,125,125,125,125,125,125,125,80 



3810 DATA 125,125,125,125,125,125,125, 

125, 125, 126, 126, 125, 125, 125, 125, 125, 83 

3820 DATA 125,125,125,125,125,125,125, 



125,125,125,125,125,125,125,125,125,82 



3838 DATA 125,0,0,0,0,0,35,26,16,0,50, 

33,36,51,7,1,6801 

3840 DATA 3,4,3,5,3,4,3,6,0,0,38,53,37 

,44,7,1,6260 

3850 DATA 3,4,3,5,3,4,3,6,0,48,26,16,0 

,0,0,0,4956 

3860 DATA 0,168,60,167,61,192,192,226, 

249,192,228,239,245,231,236,225,2749 

3878 DATA 243,192,229,238,231,229,236, 

192,192,0,0,0,0,0,0,44,4285 

3880 DATA 37,54,37,44,26,8,16,8,8,8,0, 

0,0,192,192,192,3194 

3890 DATA 192,192,192,192,192,236,229, 

246,229,236,218,192,208,192,192,192,22 

24 

3908 DATA 192,192,192,192,192,192,192, 

192,192,192,237,245,236,244,233,240,38 

26 

3918 DATA 236,233,229,242,218,192,288, 

288,192,192,192,192,192,192,192,192,82 

9 

3928 DATA 192,192,192,192,231,225,237, 

229, 192, 192, 239, 246, 229, 242, 192, 192, 33 

82 

3930 DATA 192,192,192,192,192,192,192, 

192,192,236,229,246,229,236,192,227,31 

94 

3948 DATA 239,237,248,236,229,244,229, 

228,192,192,192,192,192,176,112,112,88 

49 

3950 DATA 214,0,48,16,212,0,49,212,128 

,48,212,128,48,212,64,55,8403 

3968 DATA 212,192,53,212,64,51,212,192 

, 53, 212, 64, 51, 212, 192, 55, 212, 2783 

3978 DATA 8,53,212,128,48,212,128,48,2 

12,128,48,212,8,58,132,132,9188 

3988 DATA 132,132,132,132,132,132,32,8 

2,176,59,65,48,61,212,128,128,8826 

3990 DATA 212,128,128,214,208,60,214,2 

32,60,214,24,61,212,128,48,214,2820 

4000 DATA 0,61,212,128,48,112,112,112, 

112,112,68,224,59,4,4,4,4373 

4018 DATA 4,112,134,112,112,112,112,11 

2,6,112,112,112,112,112,112,112,8246 

4828 DATA 112,112,65,136,61,88,62,199, 

62,282,164,164,2,2,2,2,4372 

4838 DATA 2,2,2,2,2,58,58,58,50,50,50, 

50,50,50,50,50,110 

4040 DATA 2,36,162,162,4,4,4,4,4,4,4,4 

,4,4,52,52,7240 

4050 DATA 52,52,52,52,52,52,52,52,10,6 

,6, 6, 6, 6, 6, 6, 6558 

4068 DATA 6,6,6,6,6,6,54,54,54,54,54,5 

4,54,54,54,54,396 

4878 DATA 88,64,142,142,64,64,64,64,64 

,64,64,64,64,72,72,64,3568 

4080 DATA 64,64,64,64,64,64,64,143,143 

,0,8,0,0,0,0,0,8303 

4898 DATA 8,8,8,0,0,128,130,132,134,13 

6,138,140,142,30,38,38,5784 

4100 DATA 88,8,64,63,64,0,8,8,8,8,8,8, 

0,0,0,192,8016 

4110 DATA 192,192,192,204,255,0,0,8,0, 

0,0,0,0,0,0,0,7353 

4120 DATA 0,0,192,284,255,8,0,0,8,192, 

192,204,255,0,0,0,6582 

4130 DATA 192,192,192,204,255,0,12,222 

,204,192,192,192,192,0,0,30,381 

4140 DATA 0,0,0,0,0,0,66,97,71,0,3,15, 

47,59,59,47,9304 

4150 DATA 5,0,64,144,164,228,228,144,6 

4,0,15,59,31,62,59,61,4440 

4160 DATA 15,0,84,229,121,249,249,229, 

84,0,12,63,190,238,254,62,3265 

4170 DATA 10,0,0,64,80,80,144,80,64,0, 

20,233,249,249,233,20,1094 
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ANALOG COMPUTING 




SINCE 1981 



Lyco Computer 

Marketing & Consultants 



SAVE ON THESE IN STOCK PRINTERS! 



Panasonic 

Industrial Company 




1080 I 
$195.00 

• 120 cps Draft Mode 

• 24 cps NLQ 

• Word Process 

• Friction Feed 



-'-.'/' 



J-t/^at la^i'iKiu^ 



^y 



J 



STAR MICRONICS 

NXIO $1951 

NL-10 $209 

NP-10 $169 

SD-10 $259 

NB-15 $889 

ND-15 $425 

NX-15 $339 

NR-15 $529 

NB24-5 $729 

CITIZEN 

120-D SI 79 

MSP-10 S2B5 

MSP-15 $385 

MSP-20 S325 

MSP-25 5485 

Premier 35 $469 

SEIKOSHA 

SP-1200AS $195 

SP-1200AI $195 

BP-5420 $1075 

BP-5420 ribbon $1 2.50 

MP-5300 Al $549 

Color Kit $119 

NP 1300AI $369 



PANASONIC 

lOaOi $195 

10911 $269 

10921 $335 

1592 $359 

1595 $499 

3131 $259 

3151 S379 

EPSON 

LX86 S205 

EX-800 S355 

EX-1000 S579 

LQ-800 S449 

LQ-1000 S659 

FX-28Be S519 

FX-86e $369 

OKIDATA 

Okimate 20 $129 

Plug n print SCALL 

120 NLQ S209 

182 $245 

192+ $365 

193+ S559 

JUKI 

6100 $365 

551 w/color $435 

6300 $739 




NX'10 $175.00 

with purchase of printer stand 

Limited ofier 



A 

ATARI 



7040 ST MONO SYSTEM! 

with a 
SEIKOSHA 1 200 Al PRINTER 

requires printer cable 

LYCO PROVIDES 90 DAY WARRANTY 
AT NO EXTRA CHARGE 




"N 



$899.95 




r 

MAXELL 
, SSDD 

1 DSDD 


5 1/4 

59.99 


3.5 D 
316.99 , 


3 BONUS 

i^ SSDD . 




S 


'^ DSDD S7.50 - '^ 

E SKC E 

T SSDD S8.S0 S14.99 t 

' DSDD S9.50 S16.99 ' 

T DSHD S16.99 - T 

E VERBATIM p 

„ SSDD . S9.99 S16.99 

8 DSDD . S12.99 S24.99 S 

Call for generic diskette pricing! 



A1 30 XE Computer Special 
(system special includes interface) 

with 
''^LL ATARI 1050 DISK DRIVE 

and a 



WARRANTY 



$479.95 STAR NP-10 PRINTER 



INTERFACING 

Microprint $39.95 

Xetec AT $39.95 

Atari 850 $109.95 

DRIVES 

Indus GT $185.95 

Atari 1050 $139.95 

SF314 $219.95 

SF3S4 $129.95 



ATARI 
HARDWARE 

MONITORS 

CALL FOR AVAILABLE 

MODELS FOR YOUR 

SYSTEM! 



COMPUTERS 

130XE $139.95 

65XE $99.95 

520STIl4ono $515.95 

MODEMS 

Atari XM 301 ,..,...$42.95 
US Roboticsl 200. . . $ 1 89.95 

Avatex 1200 $189.95 

Avatex 1 200tic $1 1 9.95 



r 



KL 



WE STOCK OVER 5000 SOFTWARE TITLES! 



SL 



Warstiip 
Wizard's Crown 
Gellysburg 
Gemslone Healer 
Phanlasie 



S34,75 
24,75 
34 75 
24 75 
24 75 



BradeftNjndSoftujare' 



Prim Stiop 

PnnI Shop Comp 

Graphic Lib I, II or I 

Karaleka 

Bank Sl Wriier 



$25,75 
$22.75 
$15,75 
$18,75 
$29 75 



feMfeLDGIC 

Pinball $22.75 

Flight Sim II $31.95 

Scenery DSK $15.95 



MicroProse 



Elddon 
Karate Champ 
Koronis Rift 
Summer Games 



$22.95 
$18,95 
$22,95 
$23,95 



Conflict in NAM 
Decision in Desert 
F-15 Strike Eagle , 
Kennedy Approach 
Silent Service 
Top Gunner , , 



$25,95 
$25-95 
$22,95 
,$19,95 
$22,95 
$19,95 



ZOOM 

Zoomracks $54,95 

Zoomracks II $79,95 



ATARI ST 

AdlVisioMj 

Basketball $28.75 

IVIusic Studio $36.75 

Hacker II $28.75 

Printworks $38,75 

MicroProse 

Silent Service $24 96 

F-15 Strike Eaole , $24 75 



Phantasie II $24,75 

Road War 2000 $24.75 

Colonial Conquest , , , , $24,75 

inFocom 

Leather 

Goddesses $24.75 

Moonmist $24.75 

Hollywood 

Hi-Jynx $24.75 



Vl 



TO ORDER CALL TOLL FREE 

1 ■800-233-8760 

IN PA 717-494-10,30 

CUSTOMER SERVICE 

717-494-1670 



or send to 

Lyco Computer 

P.O. Box 5088 

Jersey Sfiore, PA 1 7740 



1-800-233-8760. 



In-stock items shipped wilhin 24 hrs ol ordt'i No deposit on C.O.D, orders. Free ship- 
ping on prepaid cash orders wilhin iho coniiruMitnl U S Volume discounts available. 
PA residents add sales lax APO. FPO .uid intorncTiional orders add S5.00 plus 3% 
for priority mail Advertised pncos slmw -l^'n discount (or cash, add A% for MasterCard 
and VISA Personal choi:ks ti'qiMt,' -1 weeks clearance before shipping. We cannot 
guarantee compalibilily Wi^ only :"''iip factory fresh merchandise. Ask about UPS Blue 
and rod label sluppinq All nioichandise carried under manufacturer's w/arranty. Return 
rnslriclion applicable RoUim audiori^alion required. All items subject to change Vi'ithout 



CIRCLE #127 ON READER SERVICE CARD 



^ Rocks! 



continued 



4180 DATA 8, 0,16,228,228,228, 16, 8, 8,0, 

8, 32, 228,228, 228, 32, 8232 

4198 DATft 8,8,48,249,121,249,249,185,3 

7,8,244,249,249,164,16,8,2486 

4288 DATA 8,8,8,8,8,13,9,5,8,8,8,8,53, 

57,45,41,7199 

4210 DATA 5,8,0,56,57,41,36,16,0,0,56, 

56,36,0,0,0,7186 

4220 DATA 0,0,0,8,57,57,41,37,5,8,5,5, 

0,0,5,5,5777 

4230 DATA 0,192,84,90,170,170,84,84,19 

2,12,42,178,149,149,178,42,9951 

4240 DATA 12,3,18,169,169,170,170,10,3 

,0,128,96,88,168,168,128,8758 

4250 DATA 8,0,0,0,0,0,3,14,62,0,0,0,0, 

8,3,15,5226 

4268 DATA 59,8,8,0,0,0,3,15,61,0,0,0,0 

,64,88,148,9473 

4278 DATA 89,0,0,0,0,64,80,148,85,0,3, 

14,63,254,254,187,8630 

4280 DATA 238,0,3,15,61,255,247,191,25 

4,64,80,148,85,85,89,149,1275 

4290 DATA 86,198,235,190,234,190,187,2 

38,187,254,255,254,238,187,234,238,485 

8 

4300 DATA 170,254,251,222,238,187,258, 

238,186,186,250,190,250,235,238,251,52 

75 

4310 DATA 174,153,165,165,166,166,106, 

153,154,166,153,169,150,105,165,153,48 

37 

4320 DATA 85,89,150,101,89,158,185,86, 

101,89,150,89,101,85,89,153,9808 

4330 DATA 102,64,83,155,85,85,89,85,86 

,251,186,255,234,126,98,86,3589 

4348 DATA 181,126,95,151,89,85,89,149, 

101,250,238,255,254,123,94,150,6273 

4350 DATA 101,153,169,149,101,149,151, 

95,189,89,151,95,126,239,255,190,6317 

4360 DATA 255,255,190,239,255,187,255, 

190,255,254,191,251,191,238,255,251,59 

57 

4370 DATA 191,170,186,255,238,255,251, 

191, 255 , 170 , 170 , 238, 255 , 251, 191, 239, 47 

23 

4380 DATA 254,170,170,251,255,191,254, 

239,187,255,187,255,255,238,255,255,65 

01 

4390 DATA 239,255,191,255,251,191,255, 

254,239,191,254,255,255,251,255,239,73 

43 

4400 DATA 254,255,255,235,255,255,255, 

250,255,175,255,255,255,250,255,255,88 

89 

4410 DATA 255,255,255,255,235,255,255, 

255, 175, 255, 255, 239, 187, 239, 255, 255, 69 

70 

4420 DATA 255,255,175,255,255,255,251, 

238,251,255,255,251,255,255,255,239,83 

56 

4430 DATA 255,255,255,243,255,255,255, 

243,255,255,255,253,213,214,213,245,70 

32 

4440 DATA 255,255,213,89,89,170,89,89, 

85,255,255,95,85,165,85,87,2342 

4450 DATA 127,255,255,255,255,255,255, 

255,255,255,251,255,255,63,255,255,627 



4460 DATA 255,0,0,8,8,0,0,0,0,0,36,126 

,126,36,36,0,9305 

4470 DATA 0,24,0,0,0,0,0,0,0,0,0,60,12 

6,66,66,231,2486 

4480 DATA 0,0,0,36,126,126,36,36,0,0,2 

4,0,0,0,0,0,6814 

4490 DATA 0,0,0,0,60,126,66,231,0,0,36 

,126,126,36,36,0,2446 

4500 DATA 0,24,0,0,0,0,0,0,0,0,0,60,12 

6,66,66,231,2516 



4510 DATA 0,0,36,126,126,36,36,0,0,0,0 

,0,0,0,0,0,6220 

4520 DATA 0,0,0,36,102,66,66,231,0,0,3 

6,126,126,36,36,0,2470 

4530 DATA 0,0,0,8,0,0,0,0,0,0,0,36,66, 

66,66,231,1430 

4540 DATA 0,0,36,126,126,36,36,0,0,0,0 

,24,8,0,0,0,6538 

4550 DATA 8,0,0,36,66,66,66,255,0,0,36 

,126,126,36,36,0,2512 

4560 DATA 0,0,24,24,0,0,0,0,0,0,0,36,6 

6,66,90,255,2372 

4570 DATA 0,0,36,126,126,36,36,0,0,24, 

24,8,0,0,0,0,6880 

4580 DATA 0,0,0,36,66,90,90,231,0,0,36 

,126,126,36,36,0,2662 

4590 DATA 24,24,8,16,0,0,0,0,0,0,0,36, 

90,90,66,231,2298 

4680 DATA 0,0,36,126,126,36,36,24,24,8 

,16,8,0,0,0,0,7070 

4610 DATA 0,0,0,60,90,66,66,231,0,0,36 

,126,126,36,60,24,3340 

4620 DATA 8,16,8,16,6,8,0,0,0,0,24,60, 

66,66,66,231,2200 

4630 DATA 0,0,36,126,126,60,60,8,16,8, 

16,8,8,8,0,0,7212 

4640 DATA 0,24,24,36,66,66,66,231,0,0, 

36,126,126,60,60,0,3226 

4650 DATA 8,16,8,16,0,0,8,0,0,24,24,36 

,66,66,66,231,2182 

4660 DATA 0,0,36,126,126,60,60,0,0,8,1 

6,8,0,0,0,0,7034 

4670 DATA 0,24,24,36,66,66,66,231,0,0, 

36,126,126,60,60,0,3256 

4680 DATA 0,0,8,16,0,0,0,0,0,24,24,36, 

66,66,66,231,2172 

4690 DATA 0,0,36,126,126,60,60,0,0,0,0 

,8,0,8,0,0,6808 

4700 DATA 0,24,24,36,66,66,66,231,0,0, 

36,126,126,60,60,0,3286 

4710 DATA 0,0,0,0,0,0,0,0,0,24,24,36,6 

6,66,66,231,2114 

4720 DATA 0,0,36,126,126,60,60,0,0,0,0 

,0,0,0,0,0,6742 

4730 DATA 0,24,24,36,102,66,66,231,0,0 

,36,126,126,60,60,0,3496 

4740 DATA 0,24,0,0,0,0,0,0,0,24,24,60, 

126,66,66,231,3260 

4750 DATA 0,0,68,40,16,56,56,56,16,14, 

206,100,63,63,100,206,6617 

4760 DATA 14,54,73,28,62,62,28,42,73,3 

4,28,28,127,127,8,8,1745 

4770 DATA 20,8,28,28,28,8,62,8,20,0,25 

5,24,255,24,24,36,3548 

4780 DATA 0,7,7,164,127,164,7,7,0,40,1 

6,16,56,56,16,16,9971 

4790 DATA 40,0,0,60,153,126,153,60,0,1 

6,84,56,124,56,84,16,3810 

4800 DATA 40,0,0,26,188,127,188,26,0,1 

6,56,18,60,60,18,56,1948 

4810 DATA 16,16,16,124,56,16,84,56,84, 

129,90,68,102,102,60,90,5664 

4820 DATA 129,0,28,62,85,62,28,0,0,0,0 

,0,219,126,24,0,1245 

4830 DATA 0,0,36,8,24,72,2,16,0,0,66,4 

0,52,16,68,0,8790 

4840 DATA 16,4,64,40,20,57,60,80,2,128 

,37,30,44,154,33,72,3158 

4850 DATA 2,64,49,132,0,131,90,0,4,68, 

132,65,18,130,44,17,3005 

4860 DATA 64,4,8,16,16,16,32,64,128,64 

,64,32,16,8,8,4,9316 

4870 DATA 2,2,4,8,16,16,8,4,4,2,1,1,2, 

4,8,8,5593 

4880 DATA 4,1,8,40,2,4,31,38,15,21,15, 

75,5,19,0,66,8398 

4890 DATA 0,32,0,68,1,18,5,139,27,78,1 

1,6,35,0,0,1,8173 
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4980 DATA 8,128,0,17,8,18,5,27,7,43,13 

,39,11,6,64,0,7826 

4910 DATA 2,0,10,16,0,85,8,5,2,139,5,3 

,35,1,128,8,9572 

4920 DATA 0,7,142,57,39,160,4,81,69,72 

,32,7,145,65,135,32,4528 

4930 DATA 4,81,59,64,128,4,78,57,47,32 

,4,8,11,14,17,20,9022 

4940 DATA 23,26,29,32,35,38,41,44,47,5 

0,53,56,59,62,65,68,2148 

4950 DATA 71,75,34,34,34,34,34,34,34,3 

4,34,34,34,34,34,33,9677 

4960 DATA 33,33,33,33,33,33,33,33,49,4 

9,10,20,56,64,80,88,1661 

4970 DATA 96,104,112,128,128,136,144,1 

52,160,168,200,208,32,32,0,56,9346 

4980 DATA 48,95,93,91,89,88,88,89,91,9 

3,95,48,56,0,136,128,6348 

4990 DATA 0,72,72,40,40,48,48,40,48,48 

,40,40,40,72,72,0,838 

5000 DATA 16,16,16,16,16,16,16,16,16,8 

,0,226,2,227,2,0,1666 

5010 DATA 32,0,0,0,8,8,8,8,8,8,6,8,8,8 

,0,0,5042 



WANT 

TO 

SUBSCRIBE? 



It's worth it. 



CALL TOLL FREE 

1-800-345-8112 



800 4-PIECE BOARD SET — $28.50 new tested parts complete with ics 

INCLUDES 800 MAIN, CPU, 10K ROM, AND POWER BOARD 



800/400 MODULES 

NEW PARTS COMPLETE WITH ICS 



$Q50 

W EA. 

All Modules 

Complele 

with 

ICs 



• 800 Mam Board 

• 800 400 CPU with GTIA 

• 8001 OK B O.S, Module 

• 16KRAMCX853 

• 400 Mam Board 

• 800 Power Supply Board 

• 400 Power Supply Board 

• 800 XL Modulator 



INTEGRATED CIRCUITS 



$ 



.ROM 
.ROM 
.ROM 
•Delay 



50 

■ EA. 

.C012399B 
.C012499B 
. COI4599B 
. CO60472 
. CO10444 



15 or more ■ 



. . CO14806 
C014377 6502 
CO10745 
C012294 
CO 14795 
CO14805 
CO 12296 
CO 10750 

$3.50 Ea 



• CPU . 

• CPU 

• CPU . 

• Pokey 

• PIA . 
.GTIA 
. Aniic . 
.PIA . 



DISK DRIVE 

CUSTOM 810 DRIVE 

Fully operatiorial 810 mounted on acrylic 
base No case Includes I O cable and power 
supply 

W.Happy V. 7 — S179.00 



$95 



00 



810 MODULES 

810 Side Board S29.50 

810 Side with Data Sep . . .S3950 

810 Power Board S15,00 

810 Analog Board Si 00 

Data Separator SI 2 50 

MISC. HARDWARE 

600XL64K Upgrade . . . .529,95 

0021697 SIOOO 

Fastchip lor 800 400 . . . .51 5 50 

1050 FDC 2793 519,50 

850 Interlace wilti Case . . 5120,00 

Numeric Keypad 515,00 

850 or PR Printer Cable . . .512,50 

PR Connection $65.00 

Joystick Cable 95 

BOARD SETS 

New Parts complele with IC s 
800 4 PIECE BOARD SET 

Includes 800 Main, CPU, 10K ROM, 
and Power Board 528,50 

810 BOARD SET 

Sideboard with Separator, Rear Power 
and Analog Boards $57 50 

400 3 PIECE BOARD SET 

Includes 400 Mam, CPU and Power 

Supply Board 520.00 

400 Keyboard 512,50 



AMERICAN TV 



Mail Order and Repair . . . 1 5338 Inverness St., San Leandro,CA 94579 

Business Address l 988 Washington Ave, San Leandro. CA 94577 

NO MINIMUM ORDER! We accept money orders, personal checks or 
C-O.D,s. VISA, Master Card okay. Credit cards restricted to purchases over 
$20.00. No personal checks on C.O.D — Shipping: $4.00 shipping and 
handling on orders under $150-00. Add $2.00 for C.O.D. orders. Calif, 
residents include 6'/?% sales tax Prices subject to change without notice. 

Much more' Send SASE for free price list "Atari is a reg. Irademark of Alan Corp 



MANUALS 

SAMS Service Manuals for 800 or 400 
or800XLorl30XE . . . 519.50 ea. 
1050 Service Manual . . . .519.50 
520ST Service Manual . . .539.50 
Inside Atari Basic 5 5.00 

HAPPY ENHANCEMENTS 

810 Version 7 Entianc . . .$89.95 

1050 Happy 5139.50 

81 0V.7 Update $47.50 

850 BARE BOARD 

Includes Parts List, 

Instructions $10.00 

Bare Board With all ICs . . . $42.50 

CONNECTORS 

l013PINPOMounl .... 54.50 
10 Cable Plug Kit $4.50 

EDITOR/ASSEMBLER 

Editor Assembler Cartridge 

Write your own High Speed 6502 

Language Programs. 

Written by Atari. Works with all Alan 

Computers except ST. 

Manual not included . . . .$10.00 

Carl, w Atari Roots $22.95 

BASIC CARTRIDGE 

Basic Rev. "A" Cartridge worl<s with all 
Atari Computers except ST, Includes 
manual. 

800XL Owners Note! Use this Cart- 
ridge while programming to elimi- 
nate the severe errors in the Built-in 
"B" Basic 510.00 



POWER PACKS 

Replacement Translormer lor: 
800 400, 810. 1050. 1200XL. 
1020 514.50 

ATARI ROOTS BOOK 

A Guide to Assembly Language Pro- 
gramming $14.95 

CARTRIDGE MAKING 
SUPPLIES 

1 6K EPROM Board with case, uses 

two2764's S5.95 

10 or more S4 95 ea 

Proburner Deluxe EPROM Burner in 
a cartridge, for BOO 400 S XL XE 
series Programs EPROIVIS 2716. 
2732, 2732A, 2764. 27128, 2532. 
+ EEPROIi^S 2816A. 52813, 
52B33 Reads 2K to 8K Atari 

RON^S J145.00 

2764 EPROIVI S3.95 

SOFTWARE 

5 7.00 
$6.50 
$5.00 
$5.00 
$5.00 
$5.00 
$5.00 
$5.00 
55.00 
55.00 
57.50 
$10.00 
$10.00 
$10.00 



Atari Joystick . . . 
Atan Paddles CX40 
Donkey Kong Cart. 
Pac-Man Cartridge 
Eastern Front Cart. 
Crossfire Cart. . 
Chicken Cartridge 
Serpentine Disk . 
Steller Shuttle Disk 
The Factory Disk 
Spanish Lessons 
Q'Bert Cartridge 
Popeye Cartridge 
Kindercomp Cart. 



CALL TOLL FREE 
1-800-551-9995 



SERVICE RATES 

Flat Service Rates below in- 
clude Parts & Labor, 60-Day 
Warranty 

800 S39.50 

850 S39.50 

400 $29.50 

1200XL $49.50 

810 $69.50 

800XL $49.50 

1050 $85.00 

800 Keyboard Repair . . . $25.00 
Above units repaired or exchanged 
with rebuildable exchange. Include 
S7.00 return shipping and insurance. 

10K Rev. "B" Upgrade 

for older 800'400's 
End Drinter disk drive timeouts and 
OTHER ERRORS. Many new pro- 
grams require Rev. B. Type the follow- 
ing peek in Basic to see if you have 
Rev. B. PRINT PEEK(58383). 
If the result equals 56 you havelhe old 
O.S Three Chip ROM set with 

instructions $7.50 

Complete 10K Rev.B module$9.50 

GTIA Upgrade For 800/400 

Add additional graphics modes and 
make your older computer compatible 
with the latest software. 
Instructions included . . . S4.50 

810 Drive Upgrade 

Greatly improve \he performance 
of your older 810, Stabilize the 
speed vi/ith the addition of an 
analog and redesigned rear board, 
Instructions included . . $27.50 



IN CA CALL 
415-352-3787 
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ITERPRIZES 

''The Computer Experts'* 

22292 N. Pepper Rd., Barrington IL 600 1 



• aUR ¥¥ARKAMTir • 

Most of our products carry d minimum 90 day warranty 

from the date of purchase. If problems arise, simply 

send your product to us via U.P.S. prepaid. We will 

IMMEDIATELY send you a replacement at no charge 

via U.P.S. prepaid. This proves once again that... 

U e Love Our CiistomersI 



ATARI 130 XE 




Includes 128K Ram & 24 K Rom 

SALE $134 95 

(Add $10.00 shipping) List $249 



1050 127K 
DISK DRIVE 




SALE $159 95 

(Add $10.00 shipping) List $299 



ATARI SYSTEM 




Includes Atari 130 XE, 1050 

Drive, Big Blue Printer, Interface 

and 2 Rolls of Paper. 

SALE $299.00 

(Add $25.00 shipping) List $362 



APPLE Ilc/IIe 

COMPATIBLE 

SYSTEM 

Marvelous! Save over $7(X)! 

Includes Laser 128, Big Blue 

Printer, Printer Interface, 

12" Monochrome Monitor, 

Magic Window He Word 

Processor, Magic Calc 

Spreadsheet, Magic Memory 

Database and 2 Rolls of Paper. 

SALE $499 00 

(Add $35.00 shipping) List $1228 



TV TUNER 

Now switch your computer 

monitor into a television set with 

the flick of a switch. This Tuner 

has dual UHF/VHF selector 

switches, mute, automatic fine 

tuning and computer/TV 

selector switches. Hooks up 

between your computer and 

monitor! Inputs included for 300 

ohm, 75 ohm, and UHF. 

SALE$ 79 95 

(Add $3 .00 shipping) List $ 1 30 



12" 80 COLUMN 
MONITOR 



High Resolution amber or green 
screen monitor. 80 col. x 1000 
lines at center. Non-glare screen. 
Works terrific with IBM, Apple 
and Laser business computers. 

SALE$ 99 00 

(Add $10.00 shipping) List $129 



13" COLOR 
MONITOR 




I High Resolution, 1000 character 

display, with built in audio 

speaker with volume control. 

|SALE$ 179.95 

(Add $14.50 shipping) List $329 



BIG BLUE PRINTER 



14" RGB & 

COMPOSITE 

COLOR MONITOR 





This is the affordable printer 

you've waited for! S'/i" letter 
size, 80 column dot matrix, heat 

transfer printer features upper 
and lower case, underline, word 

processing, and much more. 

SALE$ 3995 

(Add $7.50 shipping) List $ 199 



COMSTAR 1000 
PRINTER 




Print letters, documents, etc., at 

100 cps. Works in Near Letter 

Quality mode. Features are dot 

addressable graphics, adjustable 

tractor and friction feed, margin 

settings, pica, elite, condensed, 

italics, super/subscript, 

underline, & more. 

SALE $179 95 

(Add $10.00 shipping) List $349 



87 EP PRINTER & 

TYPEWRITER 

COMBINATION 

Superb Silver Reed letter quality 

daisy wheel printer/typewriter, 

just a flick of the switch to 

interchange. Extra large carriage, 

typewriter keyboard, automatic 

margin control, compact, 

lightweight, drop in cassette 

ribbon! Centronics Parallel 

Interface port is built-in. 

SALE $179 95 

(Add $12.50 shipping) List $299 



160-180 CPS 
N.L.Q. 180 
PRINTER 

This printer has a Near Letter 

Quality button on the front panel. 

No more turning the printer on and 

off. The 8K buffer will free up 

your computer four times faster 

than conventional printers and the 

high speed will keep you 

computing more than printing. 

Super graphics along with Pica, 

Elite, Italics, and Condensed print. 

Lifetime Warranty on Print Head 

plus 6 month immediate 

replacement warranty. Centronics 

Parallel Interface port. 

SALE$ 199.00 

(Add $10.00 shipping) List $499 





MasterCard 



TO ORDER CALL (312) 382-5244 
8 am - 8 pm CSX Weekdays / 9 am - 12 noon CSX Saturdays 



CIRCLE #135 ON READER SERVICE CARD 



BEST SERVICE IN THE USA • 1 DAY 
EXPRESS MAIL • OVER 500 



15 DAY FREE TRIAL 

CUSTOMER LIST OF OVER 

3,000,000 - LARGEST IN THE USA 



FLIP— N— FILE 

Dust and dirt can hurt your disks. 
Proper filing and protection of 
your disk collection will reduce 

unneccessary wear and tear. Over 
70 disks fit in Flip-N-File. 

SALE $14 95 

List $24.95 



COMPUTER 
CLEANERS 

TV /Monitor Screen Restorer / 
Qeaner Kit • Disli Drive Qeaner 
• Anti-SUtic Keyboard Cleaner 

•Choose any of these three 

computer cleaners for only 

$9.95 each! 

SALE $9,95* 

List $19.95 




ATARI WRITER 
WORD PROCESSOR 

Write papers, schoolwork, etc. 

quickly and efficiently with No. 1 

Atari word processor w/spelling 

checker. Make changes with 

preview modes. Includes: full 

screen editing, double column 

printing, condensed, elongated, 

page no.'s headers-footers, 

margin set and more. 

SALE $49 95 

List $99.00 



FIGHT NIGHT (D) $18.95 

HARDBALL (D) lg.9S I 

SPACE SHUTTLE (D) $15.95 I 

HACKER (D) 15.95 

GREAT AMER. ROAD RACE (D) . . 15.95 
GHOSTBUSTERS (D) 19.95 I 



HI TECH EXPRESSIONS 



BATTERIES INCLUDED 



HOME PACK (D). 
PAPER CLIP (D). 



. $19.95 I 
. . 29.95 I 



CARD WARE (D) $7.95 ^| 

HEART WARE (D) 7.95 ^M 

PARTY WARE (D) 9.95 ^M 

WARE WITH ALL KIT (D) 9.95 ^M 

HOLIDAY PRINT PAPER (D) 7.95 ^H 




PRINT SHOP (D) $«.95l 

GRAPHICS LIB. 1,2 or 3 (D) 15.951 

COMPANION (D) 22.951 

KARATEKA (D) 1».95| 



INFOCOM 



DOUBLE SIDED DOUBLE DENSITY DISK 

.29* ea. 



MOONMIST (D) $22.95 I 

BALLYHOO (D) 22.95 I 

HITHHIKER'S GUIDE (D) 22.95 I 

WISHBRINGER (D) 22.95 I 



100% Certified 5 '/4" floppy disks. Lifetime 
Warranty. 1 Box of 100 -$29.00. List $1 .99 each. 



AMER. EDUC. COMPUTER 



FISHER PRICE 



BIOLOGY FACTS (D) $9.95 

ELEM. SCIENCE FACTS (D) 9.95 

U.S. GEOGRAPHY FACTS (D) 9.95 

U.S. GOVERNMENT (D) 9.95 

U.S. HISTORY FACTS (D) 9.95 

WORLD GEOGRAPHY FACTS (D) . 9.95 

WORLD HISTORY FACTS (D) 9.95 

FRENCH VOCAB. SKILLS (D) 9.95 

SPANISH VOCAB. SKILLS (D) 9.95 

AEC SPELLING (D) 19.95 

LEARN TO READ (D) 19.95 

READING COMPREHENSION (D) 19.95 



SPINNAKER 



LINKING LOGIC (C) $9.95 I 

DANCE FANTASY (C) 9.95 I 

MEMORY MANOR (C) 9.95 I 

LOGIC I FVELS (C). 9.95 | 

DELTA DRAWING (C) $9.95 

PACEMAKER (C) 9.95 

KIDS ON KEYS (C) 9.95 | 



SYNAPSE 



CAVERNS OF KHAFKA (D) $10.95 I 

TALLADEGA (D) 10.95 | 

FORBIDDEN FOREST (D) 10.95 I 

MASTERS OF TIME (D) 10.95 I 

SLINKY (D) 5.95 I 

TEXT PRO/DATA PRO (D) 16.95 I 



DATASOFT 




GENERAL LEDGER (D) $37.9 

ACCOUNTS RECEIVABLE (D) . . . . 37.95 
ACCOUNTS PAYABLE (D) 37.95 




TYCOON (D) $14.95 I 

MILLIONAIRE (D) '*'*l 



PAC MAN (D) $9.95 I 

CONAN (D) 9.95 

POLE POSITION (D) 9.95 I 

DIG DUG (D) 9.95 I 

MR. DO (D) 9.95 I 

BRUCE LEE (D) 12.95 I 

ZORRO (D) 12.95 I 

GOONIES (D) 12.95 I 

221 B BAKER STREET (D) 18.95 I 



DES GNWARE 



TRAP A ZOID (D) 

SPELLAGRAPH (D) 

MATH MAZE (D) 

CRYPTO CUBE (D) 

SPELLICOPTER (D) 

MISSION ALGEBRA (D) 

SAT WORD ATTACK SKILLS (D) . 
PSAT WORD ATTACK SKILLS (D) 
INTRO TO COUNTING (D) 



$9.95 
.9.95 
14.95 
12.95 
14.95 
24.95 
22.95 
22.95 
19.95 



SYNFILE (D) $32.95 

SYNCALC (D) 29.95 

SYNCALC TEMPLATES (D) 14.95 



WEEKLYREADER 



ELECTRONIC ARTS 



PICTURE BUILDER (Dl $16.95 I 

STICKYBEAR BOP (D) 16.95 I 

STICKYBEAR NUMBERS (D) 16.95 I 

STICKYBEAR BOUNCE (D) 16.95 I 

STICKYBEAR OPPOSITES (D) 16.95 I 

STICKYBEAR ABC (D) 16.95 I 

STICKYBEAR SHAPES (D) 16.95 I 



AGE OF ADVENTURE (D) $9.95 I 

SUPER BOULDERDASH (D) 9.95 I 

SEVEN CITIES OF GOLD (D) 9.95 I 

ONE ON ONE (D) 9.95 I 

PINBALL CONSTRUCTION (D) 9.95 I 

MUSIC CONSTRUCTION (D) 9.95 I 

RACING DESTRUCTION (D) 9.95 I 

GOLDEN OLDIES (D) 19.95 I 

MOVIE MAKER (D) 12.95 I 

CHESSMASTER (D) 25.95 I 

OGRE (D) 26.95 I 

LORDS OF CONQUEST (D) 22.95 I 



SIX GUN SHOOTOUT (D) $23.95 I 

BATTLE OF ANTIETAM (D) 32.95 I 

GETTYSBURG (D) 34.95 I 

MECH BRIGADE (D) 34.95 I 

NAM (D) 23.95 I 

U.S.S.A.F. (D) 34.95 I 

KAMPFGRUPPE (D) 34.95 I 

FIELD OF FIRE (D) 23.95 I 

CARRIER FORCE (D) 32.95 I 

WAR SHIP (D) 3495 I 

BROADSIDES (D) 23.95 I 

COMPUTER AMBUSH (D) 32.95 I 

COMPUTER BASEBALL (D) 23.95 I 

COMPUTER QUARTERBACK (D). 23.95 I 
COLONIAL CONQUEST (D) 23.95 I 



TYPESEETER (D) $21.95 

RUBBER STAMP (D) 18.95 

PAGE DESIGNER (D) 11.95 

P.S. INTERFACE (D) 18.95 

1ST XLENT WORD PROCESSOR (D) . . 18.95 
MEGA FONT (D) 16.95 | 



Shipping, Handling & Insurance Information and Charges 

Add $3.00 (unl»»s noted) tor shipping, hondling ond insurance. Illinois residents please add 6% % soles lax. Add $6.00 (double the amount) (or CANADA, PUERTO RICO, HAWAII, ALASKA. 
APO-FPO orders. All orders must be in U.S. Dollars. Vii DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. Enclose Cashier Check, Money Order or Personal Check. Allow 1 4 days for 

delivery. 2 to 7 days for phone orders. 1 day express moil. Prices & Availability subject to change without notice. Hardware shipping prices vary according to weight. Please call for amount. 
VISA - MASTE ltCAWD - C O. P. No APO-FPO for Monitors. Monitors con Only be shipped to 48 contiguous United States. Call for CO. D. cuaram». 
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Famous National lirand 



NLQ 180 

Hi-Speed Printer Sale 

• 1 60 - 1 80 CPS • Near Letter Quality • 

Lifetime Warranty 



Sale $ 1 990« 

■i ^^ ^^ List$4< 




Wholesale 
Cost Prices! 



« <L 




All New up Front 
Panel Controls 



Fantastic Graphics 
Easy to Use 



List $499.95 
60% OFF LIST PRICE 

NLQ'180 Premium Quality Printer 

Near Letter Quality Selectable From Front 

Panel Controls • High Speed Dot Matrix* 

Letter Quality Modes • 8K Buffer frees up 

computer 4-times faster • Pica, Elite, 

Italics, Condensed • Super Graphics • 

Business or Personal • Tractor/Friction • 

15 Day Free Trial • Lifetime Warranty on 

Print Head* • 6 Month Immediate 

Replacement Policy • 

NLQ- 180 Print Samples 



Fantastic Price 






This is an exaisple of ITALICS 
E: n 1-1 SI n c= ^ cd Boldface 

Condensed Text Double-strike 

example .of Near Letter Quality 



APPLE — ATARI — EPSON NLQ 1 80 SPECIFiCATIONS IBM — commodore — ETC 



Print Buffer 

8K bytes utility buffer 
Printing Direction 

Text Mode — Bi-directional 

Graphic Mode — Uni-directional 

Interface 

Centronics Parallel Port 

Paper 

Plain paper, Roll paper, Single sheet 

Fanfold, Multipart paper: max. 3 sheets 

(original plus 2 copies) 

Character Fonts 

Pica, Elite, Italics, Condensed 



Printing Method 

Impact dot matrix 

Printing Speed 

160-180 CPS at standard character printing 

Printing Characters 

Standard 9x9 dot matrix 
NLQ 12 x 18 dot matrix (33cps) 

Character size: 2.12 x 2.8 mm (standard) 
Character sets: Full ASCII character set (%) 
32 International characters 



INTERFACES 



Ink Ribbon Cartridge 

Ribbon Life: 3 million characters/cartridge 
Physical Dimensions 
Size: I5"xl2"x5" 
Weight: 12.7 lbs. 
Maximum Number of Characters 

Standard: 10 cpi 80 cpl 

Standard enlarged: 5 cpi 40 cpl 

Elite: 12 cpi 96 cpl 

Elite enlarged: 6 cpi 48 cpl 

Condensed: 17 cpi 132 cpl 

Condensed enlarged: 8.5 cpi 66 cpl 

Condensed elite: 20 cpi 160 cpl 



Atari $39.95 Apple $44.95 Commodore $29.95 IBM $49.95 Laser 128 $19.95 Macintosh $49.95 



Shipping, Handling & Insuranco Cliarges 

Add $10.00 for shipping, handling, and insurance. Illinois residents please add 
6'/i% soles tax. Add $20.00 for ALASKA, CANADA, HAWAII, PUERTO RICO & 
APO-FPO orders. All orders must be in U.S. Dollars. WE DO NOT EXPORT TO 
OTHER COUNTRIES EXCEPT CANADA S PUERTO RICO. Enclose cashier check, 
money order or personal check. Allow 14 days for delivery, 2 to 7 days for phone 
orders, 1 day express mail. Prices & Availability subject to change without notice. 
VISA — MASTER CARD — C.O.D. Coll For C.O.D. Charges. 




We Love Our Customers 

22292 N. Pepper Rd., Barrington, Illinois 60010 

3 1 a/38a-S244 to er4 
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twesp' 



;ed \ 1 MHz Super Turbo IBM® XT 

V^^n^ t' 4^®""P*'*''*'® Computer System 

compog55®jiJ Run thousands of IBM® software programs available. 










[^p^wq;; 



HI 



\\\ 



mninuii 




a^^'>^' 



15 Day Free Trial • 90 Day Warranty* 
Double 90 Day Warranty On Computer 



Look at all you get for only ^599^ 



The complete system 

10 MHz Super Turbo XT Computer 

* 5 12K Memory 

* Single floppy disk drive 

* Parallel printer port 

* Serial printer port 

* Mouse/joystick port 

* RGB color graphics port 

* Hercules compatible monochrome port 
MS DOS 3.2 & GW Basic 

12" Hi-Res 35 MHz Green Screen Monitor 

(TTL & EGA compatible) 

Monitor interface cable 
Big Blue Printer 

RS 232 IBM to Big Blue cable 

2 rolls of paper 
Word First • Word Processor 
Data First • Data Base 
Calc First • Spreadsheet 



List Price 


Sale Price 


*1295°° 


•49900 


S9995 


No extra cost 


SI 29'= 


No extra cost 


$5995 


No extra cost 


S5995 


No extra cost 


S5995 


No extra cost 


S9995 


No extra cost 


S7995 


No extra cost 


$1 9900 


(9900 


*249°° 


•9900 


»24" 


.|9«5 


$1 9900 


.39,5 


*19" 


•995 


$1995 


.5,5 


$9900 


•3995 


$9900 


.3995 


S9900 


.3995 



Home & Business 

This IBM® XT compatible is perfect 
for your home and/or business uses. It 
makes life easier in more ways than 
you can imagine. Use the system for 
personal letters, form letters, address 
storage, listing valuables, figuring 
finances, school reports, business 
reports, calculations, business 
projections... the list can go on and on. 
With the addition of some of the 
thousands of software programs 
available for IBM® you can increase 
the capabilities of your system even 
further. A terrific home improvement, 
business enhancer, entertainment 
center & educational aid! 



Total price when bought separately 



■^2893= 



'892* 



' Buill-in the Super Turbo XT 



IBM® is the trademark of International Business Machines Inc. 



00 

off 

sale prices! 

Complete System only '599 



* 90 Day Immediate Replacement Policy from Computer Direct 



Shipping, Handling & Insuranco Charges and Information 

Add (35.00 for shipping, handling and insurance. Illinois residents please add 
6'/i% sales tax. Add $70.00 for CANADA, PUERTO RICO, HAWAII, ALASKA and 
APO-FPO. All orders must be in U.S. dollars. Enclose Cashier Check, Money Order 
or Personal Check. Allow 14 days for delivery, 2 to 7 days for phone orders, 1 day 
express moil. Prices & Availability subject to change without notice. 

VISA - MASTEItCARD - C.O.D. Please call for C.O.D. charges. 



COMPUTER DIRECT 

22292 N. Pepper Rd., Barrington, Illinois 6OO10 

Call (312) 382-5050 or 382-5244 

to Order We iove our Customers 
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THE LOWEST 
PRICES 



THE BEST 
SERVICE 



PHONE LINES 
OPEN 



10-6 E.S.T. 
M-F 



ELECTRONIC ONE* 

CALL r614J 864-9994 • P.O. BOK 13428 • COLUMBUS. OHIO 43213 



HARDWARE 

ATARI 800XL 69.99 

W/SOFTWARE* 

ATARI 65XE 89.99 

W/SOFTWARE- 

ATARI 130XE 129.99 

ATAR1 1050 DISK DRIVE . . . 129.99 

ATAR1 1027 PRINTER 99.99 

ATARI XM801 PRINTER . . 179.99 
ATARI XM804 PRINTER . . . 179.99 

ASTRA (THE ONE) 249.99 

INDUS GT DISK DRIVE .... 179.99 
ATARI XM DAISY WHEEL 

PRINTER 179.99 

ATAR1 1020: PLOTTER 26.99 

HARDWARE ACCESSORIES 

ATARI XM301 MODEM 39.99 

SUPRA 300 MODEM 37.99 

SUPRA MPP1150 

INTERFACE 39.99 

XETEC INTERFACE 34.99 

MICRO PRINT 29.99 

USDOUBLER 49.99 

US DOUBLER W/O DOS 26.99 

ATARI LIGHT PEN 36.99 

PRINTERS 

STARNX10 199.99 

STARNP10 169.99 

STAR POWER TYPE 1 79.99 

PANASONIC lOaOi 189.99 

PANASONIC 10911 259.99 

EPSON LXee 229.99 

COLOR 13" MONITORS . . . 149.99 
GREEN 12' 'MONITORS ... . 69.99 



JIUTARI' 

8-BIT 
HARDWARE ACCESSORIES 

DISKETTES 

SONY S/S D/D 6.99 

SONY D/S D/D 8.99 

CENTECH COLOR 

S/S D/D 49tea. 

MAXELL S/S D/D 7.99 

MAXELL D/S D/D 9.99 

BONUS D/S D/D 7.99 

BULK 3V2 S/S D/D 1.19ea. 

JOY STICKS 

ATARI LIKE 4.99 ea. 

ATARI 6.99 

QUICK SHOT I 5.99 

QUICK SHOT II 7.99 

QUICK SHOT III 9.99 

GEM STICK 6.99 

UNITE 5.99 

EPYX500XJ 13.99 

BOSS 11.99 

BAT 16.99 

STAR FIGHTER 6.99 

ACCESSORIES 
SURGE PROTECTORS 
COLORS 

PINK, YELLOW, BLUE 14.99 

DISK CASES 7.99 

DISK CASE 120 9.99 

DISKNOTCHER 3.99 



8-BIT 
SOFTWARE 

THE EIDOLON 7.99 

BALL BLAZER 7.99 

RESCUE FRAC 7.99 

KORONISRIFT 7.99 

SUMMER GAMES 9.99 

STAR RAIDERS 1.99 

DEFENDER 1.99 

E.T 1.99 

QIX 2.99 

BASKETBALL 8.99 

PITFALL 8.99 

PITFALL II 8.99 

HERO 8.99 

SARGONII 7.99 

RIVER RAID 8.99 

MINER 2049ER 5.99 

WIZZARDOFWAR 4.99 

TIME WISE 2.99 

HOME FILING 

MANAGER 2.99 

GYRUSS 4.99 

FROGGER 4.99 

MILLIPEDE 7.99 

GALAXIAN 9.99 

STARBOWL 

FOOTBALL 9.99 

STAR LEAGUE 

BASEBALL 9.99 

DIG DUG 8.99 



;i^- 



ATARI- 



;i^ 



ATARI" 



B-BIT 
SOFTWARE 

SARGONIII 22.99 

DONKEY KONG 8.99 

DONKEY KONG JR 8.99 

COMPUTER BASEBALL 9.99 

SAM 14.99 

TOUCHDOWN FOOTBALL . . 1 1 .99 

ATARI FOOTBALL 9.99 

TOP GUNNER 14.99 

STAR RAIDERS II 14.99 

PAINT 3.99 

WAR GAMES 24.99 

HARDBALL 18.99 

RGHT NIGHT 18.99 

SUPER BOULDER DASH ... 1 1 .99 

ARCHON 11.99 

ATARI WRITER 24.99 

ATARI WRITER PLUS 29.99 

PAPERCLIP ..■ 34.99 

ASSEMBLE EDITOR 17.99 

PILOT 14.99 

MICROSOFT BASIC 7.99 

BASIC XE 46.99 

BASIC XL 36.99 

ACTION 36.99 

SYN FILE PLUS 29.99 

SYNCALC 29.99 



ATARI 520ST 

BLACKS 

^yTtIm 45999 

• MONITOR 

• DISK DRIVE 

• KEYBOARD 
520ST 

^^?e"m 72999 

• color monitor 299.99 

• blk/wh monitor 129.99 

• keyboard 

disk drive 399.99 

• sgl disk drive 129.99 

• dbl disk drive 199.99 

• 20 MEG 

HARD DRIVE 529.99 

• 1200 BAUD 

MODEM 79.99 

• 1040 COLOR 

SYSTEM 869.99 

• 1040 BAV 

SYSTEM 699.99 

CALL FOR 

SOFTWARE 

TITLES 



HOW TO ORDER: CASHIER CHECK, MONEY ORDER, MASTERCARD" OR VISA* (ADD 4% FOR CHARGE CARDS) ... NO PERSONAL CHECKS ... NO C.O.D.'s . . . SHIPPED 

U.P.S. . . . ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE. 

SHIPPING: ADD $3.00 ON ALL ORDERS UNDER $100.00 . . . ADD $5.00 ON ALL ORDERS OVER $100.00. ACTUAL FREIGHT CHARGED ON MULTIPLE ORDERS. 

INTERNATIONAL: ACTUAL FREIGHT CHARGED ON ALL ORDERS OUTSIDE THE CONTINENTAL UNITED STATES INCLUDING A.P.O. 

POLICIES: NO RETURNS WITHOUT A RETURN AUTHORIZATION ... NO RETURNS UNLESS DEFECTIVE. ALL DEFECTIVES WILL BE EXCHANGED ... NO EXCEPTIONS. 

PLEASE SPECIFY CALL OR WRITE FOR FREE CATALOG 

CALL ELECTRONIC ONE r614J 864-9994 OR WRITE 
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FIFTEEN TIMES THE POWER! 



90% + CONFIDENCE LEVEL 



Why purchase only 1 thoroughbred handicapping 
strategy when you can have the POWER of the 15 most 
popular handicapping strategies available? 

A proven computer program, designed by an M.B.A, of 
Finance, combines improved variations of the 15 most 
popular handicapping strategies into one easy program. 
This POWERFUL program called Multi-Strats can 
analyze a race using 15 strategies in a fraction of the 
time you analyze a race using just 1 strategy. 

Simply type in the ansv^^ers to the program questions. All 
the info is in the Daily Racing Form. The results of the 15 
strategies will automatically appear on your screen or 
printer. Multi-Strats then tabulates the 15 strategy totals 
to give you an ultimate number for each horse. 

When 10 or more strategies select the same horse to 
win. that horse has over a 90% chance of winning. 

Multi-Slrats package includes: * 15 strategies * 40 
page book (with money management) • S'A" or 3V2" 
disk or tape * telephone hotline * first class delivery * 
BONUS #1 Pick 6-10 Horse Program * B0NUS#2 Lot- 
tery Program * BONUS #3 Free Las Vegas trip eligibili- 
ty * All for $69.95 {Add $2 S & H) 

Multi-Strats' Video Tutorial is available for beginning 
computer operators and/or handicappers on VHS or 
Beta for $19.95. (Add $3 S & H) 

Order by Money Order, Check. Visa, MC. AMEX, or 
C.O.D. to Banana Software, Inc. Dept. SA. 6531 Park 
Avenue, Kent, OH 44240. 

ORDERS (216) 673-6969 (24 hrs.) 
INQUIRIES (216) 673-6167 (recording) 



ALL MODELS 



COMMODORE 
APPLE 
ATARI 



RADIO SHACK 
COLECO 



Computer Garden 

Wilkes-Barrc & Scranton's #1 Atari Dealer 



ST' s.,. 



$449 
$.■549 
$749 
$899 



520ST wilh SS drive... 
520ST wilh DS drive.. 
104()STB&W system. 
1040ST Color system., 
520ST prices are less monitor. 
We lest every Atari ST before 
we sliip, so you don't receive 
any unpleasant surprises. 

SXLaiiguagfs 

LDW BASIC $45.99 

Mcgamax C $169 

OSS Personal Pascal.. $48.99 
Prospcro FORTRAN.. $97.99 

TDI's Modula-2 $51.99 

Developer's Modula-2. $97.99 
ST PiDductivitv 

Publishing Partner ,$97.99 

Degas Elite $48.99 

Dac-Easy accounting.. $45.99 

ST Accounts $145 

Synsoft Gen. Ledger.. $.')7.99 

STEnlerlaiiiiiiail 

The Black Cauldron... $24.99 

Champ. Wrestling $25.99 

Flight Simulator II $J4,99 

King's Quest III $32,99 

Leader Board Golf...,. $25.99 
Little Computer People $.32.99 

Silent Service ST $25.99 

Starglidcr .$28.99 

Sundog or Mudpies.... $24.99 

Tenth Frame .$22.99 

Winter Games $25.99 

.ST Peri phenils 

Supra 20M .3.5"hard disk$569 

Avalex 1200hc modem.. ,$129 

Avalex 1200 modem $89 

Casio CZ-IOl ,$269 

FrinlerParEains! 

Panasonic 1080-i $199 

Panasonic 1091-i $2.59 

Star NX-10 $219 



XL/XE'S... 



1.30XE $139 

1050 disk drive $139 

XM301 modem $44.99 

Covox Voice Master... $69.99 
ICD P:R:Connection.... $59.99 
XiyXKlanguaga 



OSS Basic XE $46.99 

OSS Basic XL $36.99 

OSS Action $46.99 

MAC 65 Assembler.... .$46.99 

Kyan Pascal $49.99 

XlTXF.Productivitv 



Print Shop Companion $22.99 
SynCalc or SynFilc+.. $29.99 

Pcachlree modules $38.99 

Artist Unleashed $27.99 

Magniprint 11+ $19.99 

Paperclip w/Spellpak . $37.99 

AtariWriter Plus $34.99 

XlAEEnlfrtainiiifnl 



Fight Night $19.99 

Hardball $19.99 

Mail Order Monsters ... $9.99 
Never Ending Story... $19.99 

Ultima IV $.36.99 

Nl-wi'll Tnriiistriix; 



256 KXL (includes MYDOS 

and RAM chips) $54,99 

Ramrod XL $54.99 

Omniview 256K (for 80 
coluinns with 800XLs)$36.99 
Omniview XL/XE (for 80 
columns with 130XEs)$36.99 

Sector Copier $13.99 

SBM-130 $64.99 

1050's, l.lOXE's: $29 to $69. 
520ST's,1040ST's:.$49 & up. 
(Otiier Atari products; $Call.) 
Free Estimates. Mail us your 
defective item insured , with a 
description of the problem. 



Free Discount Catalog! 

To get yours call, write, or use Reader Service. 



To order send check or money order to Computer Garden, 
106 W.Carey Si., Plains PA I87D5. PA cu.slomers add 6% tax. 
Please include enough postage (overpayments are refunded). 
COD'S call (717) 823^025. VISA /MasierCard/Amex.add 3%. 
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256KXL $69.95 

This 256K ram memory upgrade 
Is designed for the B00XL/1200XL 
computers. This upgrade gives you 
compatlbtity with the 130XE, plus 
gives you an additional 128K ol 
ram tor a total ol 256K. With this 
upgrade, you can run software 
designed tor the 130XE, including 
Basic XE, dIsK operating systems, 
etc. internal installation. Does not 
use expansion bus. Some soldering 
required. Mydos and manual 
included. D on' t confuse our 
upgrade with others you may have 
heard about. Ours supportt Antic 
CPU control. Our upgrade also 
protects the main memory, so you 
can't accidentally access the main 
memory bank and wipe It out. 
Inetallati0iiav«lfa»ie 

256KXLLM S39.95 

Same as above, without RAM 



Check your local dealer 
or contact: 

Newell Industries 

602 East Hwy. 78 

214-442-6612 

OMier inquirlta Wticomt 
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Panak 
strikes! 



Reviews of the latest 
softvrare 



by Steve Panak 



For a long time, Atari owners have had 
but one real choice in quality simulations. 
The market had been purged until recently 
of all but the strongest producer of these 
specialized games: SSI. But the software 
forest is full of predators; the king of the 
jimgle has been threatened by Worlds to 
C^onquer. 

The company has chosen Electronic Arts 
to distribute its line of simulation games. 
Last issue, I looked at their Rommel Bat- 
tles for Tobruk. I found it had easy con- 
trol and multiple difficulty levels that 
would let it grow with its owner 

Still unresolved was the burning issue: 
just who is now the king of war simulators? 
This month, 1 chose from each company 
a game simulating conflict during the U.S. 
Civil War Without further ado, here's the 
battle of the century, to determine exactly 
who is the king of the war simulation. 

The Battle of Chickamauga 

by Worlds to Conquer, Inc. 
GAME DESIGNER'S WORKSHOP 
P.O. Box 1646 
Bloomington, IL 61702 
48K Disk $39.95 

Gettysburg: 

The Turning Point 

by Chuck Kroegel and David Landrey 

SSI 

1046 North Rengstorff Avenue 

Mountain View, CA 94043 

48K Disk $59.95 

While both these games cover the same 




3nt as \ ,• 
loved to ^U. 



year- in the Civil War, 
the battles they simu 
late are as different as 
blue and grey. Thus 
were somehow move 
purchase both — either be 
cause you love simulations, or 
because you love tliis portion of 
history, or because you're a glut- 
ton for pvmishment (remember 
how hard simulations are to learn 
— you wouldn't be getting identical 
games. 

The Battle of Chickamauga simulates a 
battle taking place in Georgia, in Septem- 
ber of 1863, while Gettysburg: The Turn- 
ing Point allows you to engage in the 
famous battle of Gettysburg, in July of 
1863. So, if you have a soft spot for one 
of these battles, you now know which to 
choose. For me, it would be Gettysburg; 
the locale was a favorite tourist trap of my 
youth. 

While both games allow one or two to 
play (two-player mode is a recent addition 
to SSI games), Gettysburg also allows the 
computer to play both sides. If you choose 
a computer opponent, Chickamauga pro- 
vides three levels of computer intelligence. 
The same effect can be achieved by direct- 
ing Gettysburg to favor one side or the 
other. 

As far as difficulty of play goes, both 



programs are tough to learn. Such is the 
nature of all simulation gaines. Until drop- 
dovrai menus free us from having to use 
most of the keys on the keyboard to issue 
the scores of commands necessary in 
controlling these games, their complex- 
ity will continue to be a curse. How- 
ever, it must be noted that each pro- 
gram features tutorial-style basic 
games which ease the player into 
their complex worlds. Unfortunate- 
ly, both games did not accept com- 
mands in the same manner. 

In Gettysburg, you are chained to the 
keyboard. Like an enemy POW, I fomid 
myself out of my gaming environment, 
searching the reference sheet for the cor- 
rect key to issue the desired coirmiand. 
Chickamauga, while no less complex, did 
not tie me down to the keyboard, but let 
me issue commands freely from the end 
of the joystick cable. I would always rath- 
er play comfortably from my easy chair, 
not hunched over the keyboard. In this, 
Chickamauga has to take the battle. 

As far as flow of play goes, both games 
function at nearly the same level; such has 
been the evolution of simulations. As ex- 
pected, each game is divided into phases. 
Gettysburg breaks into two main ones: 
Operations Phase, in which you move 
troops and target the enemy; and Combat 
Phase, in which confrontations are re- 
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solved and troops recover. An End-of-Day 
Phase, which simulates retreat and rest, 
is added at the end of each day. 

In Chickamauga, each commander in 
turn gives orders to his troops. After each 
side is through commanding, a resolution 
phase moves the units and settles the var- 
ious controversies. A review phase is your 
window into these resolutions. Together, 
these phases let players study the results 
of their cormnand, step by step, in both 
directions. In a two-player game with the 
hidden enemy option activated, only the 
troops visible to both sides are displayed 
on the board. 

Speaking of options, both games are full 
of them. While Chickamauga allows three 
levels of play, the control of difficulty in 
Gettysburg is much more precise. You can 
favor either side, or play a historically neu- 
tral version. You can also control the ar- 
rival of troops and the amount of ammuni- 
tion either side receives. You can play any 
of four scenarios: July 1st, 2nd or 3rd, 
1863; or, for the true diehard, all three. 
Chickamauga allows either a one- or two- 
day game. Both let you hide enemy troops 
in two-player mode; Chickamauga allows 
you to turn on or off morale, fatigue and 
communication factors, as well as the 
sound. These factors are always considered 
in Gettysburg, and are controllable in the 
intermediate and advanced games. 

An additional feature of Gettysburg's ad- 
vanced game is the consideration of the 
deaths of various leaders and the ensuing 
breaks in the chain of command. Leaders 
don't come into play in Chickamauga, but 
the communication feature mimics leader- 
ship somewhat — if you can't communicate 
with a unit, its moves are slow and uncer- 
tain. Both games consider arrival of rein- 
forcements. Gettysburg will allow the set- 
ting of a time limit for completing Com- 
mand phase, while Chickamauga contains 
features to facihtate playing by mail. 

Each game declares a victor. Both give 
points for casualties caused, as well as ob- 
jectives captured. Both will let you save 
and restore games in progress; Chicka- 
mauga also saves and restores a series of 
moves. Gettysburg provides a help menu 
of available commands, while in Chick- 
amauga you can cycle through those units 
awaiting orders. Gettysburg cycles you 
through units with problems — low morale, 
men, or ammo — but it's up to you to re- 
member which units are imcommanded. 
I always have trouble remembering which 
men I've failed to give orders to. 

Chickamauga is much more tightly tied 
to real time than is Gettysburg. In Chick- 
amauga, each turn lasts two hours. You is- 
sue commands to each unit in each turn. 
Firing takes twenty minutes, or a unit can 
rest for forty minutes. Moving takes vary- 
ing amounts of time, depending on the 
type (march, cautious advance or attack) 
and environment (road, hill or woods). 



Gettysburg, while keeping time through- 
out play, is much less tied to it, as far as 
you, the commander, are concerned. At the 
beginning of each turn (and mid-turn, in 
its intermediate and advanced versions), 
each unit receives a certain number of 
operation points. Each option — movement, 
firing or fortification — costs operation 
points. Both amounts received and costs 
vary according to the aptitudes and attrib- 
utes of the units in question. 

The two games have increasingly com- 
plex play levels, to let novices gain expe- 
rience as they become proficient at the 
simulation. With the start-up portion of 
each game's manual , either may be imme- 
diately and easily learned. Remember, I 
don't mean as "easily" as in an arcade 
game — but they're vast improvements over 
simulations of a couple years ago. 




Gettysburg: The Turning Point. 

Getting to the manuals, I have to award 
this skirmish to Gettysburg. Its glossy 8x11 
booklet is superbly written and fully illus- 
trated. The twenty-six pages cover basic, 
intermediate and advanced games, and 
charts and maps help you understand how 
the game works, as well as what is hap- 
pening historically. Interested players will 
love the details on how various modifiers 
affect battle, and the historical text and 
bibliography will appeal to historians. A 
reference sheet on the back cover keeps all 
those confusing commands in sight, while 
a plastic covered map of the battlefield, 
with a reference sheet on the back, is built 
to last. On a sour note, I must add that, 
while the parts inventory lists two such 
cards, my package had only one. 

Chickamauga offers about the same 
amount of documentation, but materials 
are scattered among five manuals, ranging 
in size from one to twenty-three pages. 
One sheet is for reference; another covers 
loading, saving, and restoring games and 
moves, plus playing by mail. A third is a 
hands-on introduction to get the novice 
quickly involved. Of the two main manu- 
als, the first covers rules; the other ad- 
dresses historical concerns. All materials 
are well written, but lack the polish of the 
SSI manual. The main drawback was dis- 
order — I like having everything together, 
rather than having to search through sever- 
al pieces to find the information. 



Unfortunately, as in many battles, there's 
no clear winner here. Each program can 
stand on merits which the other lacks. In 
the end; personal preference will decide 
between the two. I can tell you that Get- 
tysburg: The Turning Point was a more 
polished product — as you might expect, 
since SSI has been in this battle for years 
now. This game has the complexity that 
only years of development could produce, 
and it's this complexity which results in 
a more accurate simulation. On the other 
hand. The BatUe of Chickamauga is a 
much easier game to learn and to play, and 
offers most of the features of its opponent. 
I would have to recommend it for the be- 
ginner. Its lower price also makes the deci- 
sion to try a simulation a little less painful. 
Only time will tell which of these two fine 
companies will be at the top of the simu- 
lation world. But if these games are any 
indications of future skirmishes between 
the two, then all simulation fans will profit 
from the war. 

Ogre 

by Steve Meuse 
ORIGIN SYSTEMS, INC. 
340 Harvey Road 
Londonderry, NH 03053 
48K Disk $39.95 

I've been waiting a while for this one. 
About a year ago, I received a catalog from 
Origin Systems, creators of the popular- Ul- 
tima series. In it were listed other, non- 
Ultima games including this one, and my 
wait is finally over. 

Ogre is based on Steve Jackson's strat- 
egy board game of the same name. Ogre 
is also an incredible solo fighting "Cyber- 
tank." And, as you might expect, your goal 
is to destroy this tank (or pilot it, depend- 
ing on your allegiance). While this aspect 
offers no surprises, I found the program 
anything but ordinary. 

This is the first piece of 8-bit software 
I've seen that controls like an ST program, 
utilizing pull-down menus and a pointer 
in game play. And, though the joystick 
control of the pointer isn't as good as that 
of the mouse, the method let me learn to 
play very quickly and smoothly, with min- 
imal studying of manuals. 

Before you begin, you must choose to 
play against either the Ogre Mark III or 
Mark V, the Mark V being stronger. You 
then set up defensive board positions. In 
this simulation-type game, you conunand 
a number of defensive unit types: heavy 
tanks, missile tanks, howitzers, infantry 
and ground effect vehicles. In the deploy- 
ment phase, these units are placed on the 
field, according to your design (you can 
save up to twenty-five layouts) or via one 
of the five preset fields. 

The object of defense is to protect the 
command post. To buy units, you're giv- 
en a number of defensive points, deter- 
mined by which Ogre model you battle. 



PAGE 86 / MAY 1987 



ANALOG COMPUTING 



As you might expect, the big guns cost a 
lot more than the infantry. But you'll need 
a proper mix if you want any chance of 
beating the Ogre. 

Using the pointer, you choose and po- 
sition units. If you want to play fair, you 
stop placing units when you run out of 
points. If you fail to do so, the program re- 
minds you that you're cheating — but, hav- 
ing pity, it lets you proceed. Don't worry: 
if you play fair, you can add more units 
later on. And you'll have to when the Ogre 
wipes out your first wave. After setting the 
field, you start commanding your units. 

To do so, you move the pointer to a unit, 
then click on it with the joystick button. 
Next, either drag the unit to the hex it is 
to move to, or to the enemy it's to attack. 
Clicking on RANGE highlights hexes on 
the map, to show movement and firing 
range of the currently active unit. You can 
position movable units first, then all units 
can fire — separately or in unison, concen- 
trating their guns on the Ogre. 

I'll tell you right now: Ogre can't be de- 
stroyed. But its weapons can be neutral- 
ized; its tanklike treads, shredded. Suc- 
ceed at these and Ogre will lose — but 
don't hold your breath. After firing, hover- 
crafts are allowed another turn, to try to 
escape the Ogre's wrath. 

Once you've completed your pathetic 
commands, it's time to watch the Ogre de- 
stroy your puny forces. Using its artificial 
intelligence, it destroys your units as it 
cleaves a bloody path to your command 
post. Destroying some units with cannons, 
crushing others beneath its treads, it's a 
force to be reckoned with. After the kill- 
ing spree is over, it's the defense's turn. 
And so it continues, until a victory by one 
side (usually the Ogre's) is achieved. 

While the graphics were competent, 
they weren't of ST quality. However, I was 
amazed at how closely the 8-bit display 
mocked that of the ST. I experienced no 
problems discerning the various icons and 
menu text; screen displays were also clear. 
Although the joystick is inferior to the 
mouse for moving the pointer around on- 
screen (it moves too slowly, losing the 
"pointing" quality of the mouse), the con- 
trol of this game is superior to any non- 
ST simulation game I've seen. 

Ogre's documentation is the kind I like 
to see: two booklets, finely crafted and 
bound, along with a reference card. The 
first booklet offers a historical perspective 
of the Ogre, as well as a frighteningly real 
depiction of 21st-century warfare. It's a 
time when plastic yields extremely strong, 
lightweight armor. . .when infantry is en- 
cased in armor plated, powered suits. . . 
when cybertanks are the most feared 
weapon. This finely written book explains 
the various combatants, as well as how the 
game works. 

The second booklet contains strategy 
and notes concerning a number of defenses 



for Ogre controllers and opponents. Also 
included is a section on its artificial intel- 
ligence: how the program evaluates the 
values of various hexes. Finally, a reference 
card of machine-specific information lists 
the various control key combinations 
which substitute for pointer control. 
Rounding out the materials, is a radiation 
badge with six detection stickers. The lit- 
tle extras deserve kudos. 

Ogre has a number of options. One- or 
two-player games are available, though I 
was disappointed to see that the computer 
could only play the Ogre's side. Its skill can 
be set to any of three levels; its message 
speed (telling what it's doing) can be in- 
creased; and its "no move" turns (in which 
the Ogre does not or cannot move) skip- 
ped. Finally, both soimd and helpful re- 
minders can be turned off. 

You should realize by now that I loved 
Ogre. Its concept was imique and original, 
its graphics acceptable, cind its control su- 
perior. I saw no weak pdints in the game. 
The ST version is out of this world. Ogre 
is a brute of a game. 

Peggammon 

by Michael C. Gilbert 
ARTWORX SOFTWARE 
COMPANY, INC. 
150 North Main Street 
Fairport, NY 14450 
48K Disk $14.95 

I doubt thai many people, on seeing Art- 
worx's Peggammon on a shelf, immediate- 
ly grabbed it. clutching it to protect it from 
slower consumer-predators as they made 
it their own. The thing is simply not at- 
tractive. But, its very reasonable price buys 
more than your money's worth. 

Peggammon is a backgammon game. 
Identical to its predecessor in every way, 
it offers a backgammon fix to all Atari 8-bit 
owners. Those of you not familiar with the 
game can refer to any library for the full 
story. Basically, though, backgammon is a 
race aroimd a board, with moves deter- 
mined by the roll of two dice. Both strate- 
gy and luck come into play, as each player 
attempts to bring his pieces home — while 
thwarting the opponent's progress by 
blocking the adversary's pieces and send- 
ing them back to the start. 

Each turn begins with a roll of the dice, 
after which you can move pieces around 
the hoard, if possible. I say "if possible," 
because you can only move onto a space 
that's imoccupied, or occupied by your 
own men or only one of your opponent's 
pieces. If you liit on one of yom- opponent's 
men. he's sent back to the bar (the start- 
ing point) and must try to re-enter the 
game. Each of the two dice can be applied 
separately; that is, a seven — made up of 
a three and a four — lets you move one 
piece seven spaces, or two pieces three and 
four spaces, respectively. Rolling doubles 
allows four moves of whatever shows on 




Backgammon for bits — Peggammon. 

the dice. These are, basically, all the rules 
of the game, but its complexity and luck 
have kept it a favorite for eons. 

After booting, this bargain game offers 
you a couple of options. One or two can 
play, and either can make the opening 
move in one of the two game versions. The 
first plays like backgammon; the second 
alters the set-up to allow an additional roll 
of the dice anytime "doubles" are rolled. 
Options are activated by one or more of 
the START, OPTION or SELECT keys. 

An editor lets you set up a board posi- 
tion and play the games, as well as take 
back a faulty move. ESCape toggles you in 
and out of edit mode. You can also, in this 
mode, enter a problem to see how the pro- 
gram solves it. Play is controlled by one 
or two joysticks. Using the sticks, you roll 
the dice and select a "from" position. Mov- 
ing to yom- destination and pressing the 
button again completes the move; choos- 
ing an illegal move allows you select a new 
"from" position. 

As one might expect from the low price, 
documentation and packaging are pretty 
shabby. A single piece of cardboard about 
the size of two end-to-end disks is folded 
around the game disk and sealed with 
shrink wrap. Once opened, the inside of 
this cardboard sleeve contains the instruc- 
tions and an extremely condensed set of 
rules for backgammon. As far as offering 
a challenge, Peggammon plays a rather 
good game. I was able to beat it when luck 
was with me; it was victorious when fate 
favored its silicon soul. All I can say is 
that, for the price, Peggammon is a steal. 

Thai's it for this month. As I quickly 
found out, only time will tell whether SSI 
or Worlds to Conquer makes the best simu- 
lation. Though SSI's game had a slightly 
higher quality, il also had a higher price — 
and both simulations gave me a respecta- 
ble game. Still, I think I liked Ogre best 
this month. Its captivating concept and 
ease of play make it a sure wimier. 

The author u'ishes to thank (he Magic 
One Computer Shop o/Barberton, Ohio for 
(heir invaluable assislance in (he creation 
of this chronicle. 
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Super 3D Plotter II 



it^tb. 



by Randolph Constan 
ELFIN MAGIC 
23 Brook Place 
E. Islip, NY 11730 
48K Disk $39.95 



by Matthew J.W. Ratcliff 

Super 3D Plotter II is a logical extension 
of that popular program Solid States, writ- 
ten by Tom Hudson for issue 16. Solid 
States was so popular, in fact, it spawned 
one of the largest follow-up series of arti- 
cles ever seen in these pages, and was the 
inspiration for CAD-3D. 

Randolph Constan was apparently quite 
inspired by Solid States, as well, because 
Super 3D Plotter II (S3DP hereafter) is a 
phenomenal accomplishment for an 8-bil 
machine like the Atari. Due to lack of 
memory and processing power, it can't 
coinpare with CAD-3D, but this powerful 
three-dimensional editor, viewer, anima- 
tor and plotter in a machine language 
package stands very vveil on its own. 

S3DP allows you to load or create a new 
3D image. The manual starts you off with 
a tutorial on loading and viewing some of 
the images on the program disk, includ- 
ing the Tie fighter. X-Wing fighter, and 
several other classic Solid States images. 
The manual presents a good tutorial in- 
troduction on 3D graphics, with plenty of 
diagrams — a niusl for understanding this 
sophisticated program. A handy quick 
reference card is provided, and it's excel- 
lent for helping you with the basic controls 
of S3DP, after you've become familiar with 
the overall operation. 

Once an image is loaded, you can dis- 
play it, then do some breathtaking and bi- 
zarre things with it. The origin of the 
X,Y,Z-coordinate .system is at the center of 
the screen. The -Z dimension comes out 
toward you, and the +Z extends behind the 
screen. S3DP projects the 3D image onto 
a 2D display with amazing speed, due to 



some "very powerful 'natural' algoritlims 
developed by Elfin Magic." 1 don't know 
how he does it, but it's /as(. This over- 
comes the one of the biggest drawbacks of 
Solid States— and that isn't alt folks! 

Now that you're viewing the 3D image, 
you can press the A or Z keys to rotate the 
image in the X,Y plane. This spins the ob- 
ject clockwise or counterclockwise on the 
screen, about its center. You don't just 
press a key to move it once, but to set it 
in conlinuous motion. For small objects, 
it really moves. For large objects (up to a 
limit of 255 points — the program's most se- 
vere limitation), the rotation is slower bul 
can still move and redisplay the image ev- 
ery few seconds, much faster than Solid 
States ever could handle. 

Press the S and X keys to rotate the ob- 
ject in the Y,Z plane, spinning it toward 
or away from you. The D and C keys will 
rotate the object in the X,Z plane, like a 
carousel. 

The keys are not mnemonically select- 
ed, but geographically situated on your 
keyboard. A is directly above Z, S above 
.\', and so on. They spin the object in op- 
posing directions. You can press any com- 
bination of the keys to create very 
interesting viewing effects. The more you 
press a key, the faster it spins, by making 
larger angular steps of rotation. Directly 
above the three key pairs for rotation are 
Q, W and E keys, which are used to freeze 
rotation in that plane. 

An object is generally drawn as a series 
of points, connected by lines. If you cre- 
ate an image by surfaces (like building an 
image with sheet metal rather than wire 
frame), you can also view an image with 
hidden line removal (CTRL-S). 

When you create an object using sur- 



faces, you can specify one of three colors 
for each. Then, when viewing, pressing 
SHIFT-S will toggle the color fill or shad- 
ing mode. The additional data allowing 
surface-oriented images results in slower 
rotations, but the results are worth it. 
Since Solid States did not support this fea- 
ture, most of these old pictures camiot be 
viewed with hidden line removal and 
shading. 

Data entry is a breeze. If you press OP- 
TION when selecting "create" or "edit" an 
image, control is sent to a custom text en- 
try display. I lere. you can enter your points 
and lines, and can create images by sur- 
face as well (for shading and hidden line 
removal). Working from an isometric 
drawing, it is easy to enter your data. Edit- 
ing, too, is simple. 

If you can manage to think in three 
dimensions on a two-dimensional display, 
you can also enter your data via joystick. 
In this mode, you are sent to a graphics 
mode 8 display, with a text window at the 
bottom. You can enter a point by X- and 
Y-positioning with the joystick. As you po- 
sition a line's endpoint, S3DP continuously 
draws a rubber-band line from your cur- 
rent position to the origin of the line. Cur- 
rent X- and Y-positions arc updated con- 
tinuously on the text portion of the display. 

I found it difficult to get precise posi- 
tioning on the screen. It seems to jump by 
as many as six digits for even the smallest 
tap on the joystick. There is a "slow draw" 
mode, selectable from the keyboard, bul it 
doesn't help much. You will have to "rough 
in" youi drawing this way, then go back 
to the text input mode to fine tune these 
valu(!s. It would have been ideal if the pro- 

(conlinued on pcige 95) 
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Easy Find 



continued from page 66 



prompt, but on the second line. Just press RETURN. Now, 
to start searching, press START. You should see the rec- 
ord number in the upper right-hand corner of the screen, 
counting upward. As soon as a record is found with the 
string P/M, it will be displayed. 

To stop searching, press the ESC key. After the first rec- 
ord is found, press ESC to test this feature. 

To continue searching, press START again. The search- 
ing will go on from where you left off in the index file. 

Conclusion. 

Of course, this article has only shown some of the fea- 
tures and ways in which EasyFind can be used. If you 
spend some time using the program, you'll come up with 
your own special techniques and applications. R 

Jim Siemion started Sierra Services in 1984. He has a 
degree in mathematics and has been working with com- 
puters for over fifteen years. Jim's first efforts were with 
a TRS-80 system which was traded in for an Atari in W81. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47. 



Listing 1. 
BASIC listing. 



PU 
SF 
JE 
XH 
KY 
BE 
OM 
KI 
KY 

JH 
MR 

GJ 

ID 

UN 
VW 

JI 
RK 

LU 
OU 
HE 
RH 
UD 
5C 
BH 

RJ 

GA 

JY 

LY 



THIS PROGRAM CONVERTS THE DATA 
STATEMENTS IN LINE 200-630 
INTO MACHINE LANGUAGE STRINGS 
FOR LINES 4400,4410,4420,4430 
AND 4435 IN EasyFind. 



10 REM 

20 REM 

30 REM 

40 REM 

50 REM 

60 REM 

70 REM 

80 OPEN ttl, 8, 0, "D ; ML5TRING ■ LST" 

100 REM H dii 1 1 ■■ Jil -lU-l f 1 -11 iM 

110 PRINT »1J"44O0 SEftRCH=flDRC";CHRSt3 

4i,-;REST QRE 20fl:REflP LE NGTH:GOSUB 800 

120 REM M ^ < m Jil -tl ■ I l-J'i^ a 

130 PRINT ttl; "4410 UPCfl5E=ADRC"jCHRSC3 

41; [REST ORE 300;REflD LEN GTH:GQSUB 800 

140 REM H^jmjiy iJiJT-lTUJ 

150 PRINT ttl; "4420 FLIP=ftDR C"; CHRS C34) 

;!RESTQR E 400;REftD LE NGTHlGOSUB 800 

160 REM H ^ < I IJi J'1 -Btf -T-] •Vili 

170 PRINT »l;"4430 COPY=flDR C"; CHR$ t34J 

;:RE5TQR E 500 ; READ L ENGTH;GQSUB 800 

180 REM M^JI|JiJil -Mf-1'|-UI 

150 PRINT ttl; "4435 CUP=ADR t"; CHRS C34J ; 

IRESTORE 60O:READ LENGTH:GDSUB 800 

192 CLOSE ttl 

194 END 

195 CLOSE ttl 

196 REM 

197 REM 

198 REM 

200 DATA 72,104,104,133,204,104,133,20 
3,104,133,206 

210 DATA 104,133,205,104,104,133,207,1 

04,133,209 

220 DATA 104,133,208,160,0,177,203,209 

,205,208 

230 DATA 7,196,207,240,21,200,208,243, 

198,208 

240 DATA 208,6,165,209,240,19,198,209, 

230,205 

250 DATA 208,227,230,206,208,223,155,2 

08,133,212 



DATA STATEMENTS 



XI 260 DATA 165,209,133,213,96,169,0,133, 

212 133 
LT 270'dATA 213,96 
AZ 300 DATA 59,216,104,104,133,204,104,13 

3,203,104,133 
GG 310 DATA 206,104,133,205,165,205,5,206 

,208,1 
TB 320 DATA 96,165,205,56,233,1,133,205,1 

65, 206 
HE 330 DATA 233,0,133,206,150,0,177,203,4 

1,223 
KP 340 DATA 145,203,165,203,24,105,1,133, 

203,165 
OF 350 DATA 204,105,0,133,204,169,0,240,2 

BA 400 DATA 59,216,104,104,133,204,104,13 

3,203,104,133 
GH 410 DATA 206,104,133,205,165,205,5,206 

,208,1 
TC 420 DATA 96,165,205,56,233,1,133,205,1 

65,206 
KH 430 DATA 233,0,133,206,160,0,177,203,7 

3,128 
KQ 440 DATA 145,203,165,203,24,105,1,133, 

203,165 
OG 450 DATA 204,105,0,133,294,169,0,240,2 

LS 500 DATA 39,104,104,133,215,104,133,21 

4,104,133,217 
LE 510 DATA 104,133,216,104,133,218,104,1 

70,160,0 
RN 520 DATA 177,214,145,216,200,208,4,230 

,215,230 
NL 530 DATA 217,202,208,242,198,218,16,23 

8,96 
FU 600 DATA 32,104,104,104,72,162,57,160, 

0,173,0 
W5 610 DATA 210,101,20,141,22,208,141,10, 

212,136 
WJ 620 DATA 208,242,202,208,237,104,56,23 

3,1,208 
01 630 DATA 228,96 
QT 800 REM 
CY 810 REM 
JX 820 REM 
QZ 830 REM 
YP 835 PRINT "LENGTH = "; LENGTH 
ZY 840 FOR 1=1 TO LENGTH:READ A:PRINT ttl; 

CHRS(A); :NEXT I 
IF 850 PRINT ttl;CHRSC34J;"J" 
ZQ 860 RETURN 



Listing 2. 
BASIC hsting. 



OUTPUT DATA VALUES AS STRING 
CHARACTERS. 



EasyFind U2.0 
Magazine Index Retrieval 

SIERRA SERVICES 

P.O. BOX 40454 

BELLEVUE, MA 98004 

t206) 881-0512 



tfiF 100 REM +- 

EG 110 REM 

LM 120 REM 

MG 130 REM 

LF 140 REM 

XH 150 REM 

LD 160 REM 

TV 170 REM 

HV 180 REM +- 

GA 190 DIM QLStlJ ,QLtll) 

LH 200 G05UB 4150 : REM ^^'^**f■^%t'2^^ 

UV 210 GOTO 1610: REM JUMP TO START 

PB 220 REM * 

BF 230 REM » GETKEY SUBROUTINE 

PF 240 REM * 

AA 250 SPECIAL=CO 

UM 260 IF PEEKC53279)=6 THEN SPECIAL=C1:R 

ETURN 
JU 270 IF PEEKtHELPKEYJ=17 THEN POKE HELP 
»,, KEY,C0:G0SUB 3980:GOTO 250 
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continued 



iGF 289 IF PEEK fCH) =255 OR PEEK CCH) =154 TH 

EN 268 
SL 290 GET «C3,BYTE 
YP 300 IF BYTE=CTRLH THEN G05UB 3988: GOTO 

250 
ZB 310 RETURN 
PC 320 REM » 

CH 338 REM » CHflRftCTER CHECK ROUTINE 
PG 340 REM ii 

JG 350 IF BYTE=RETURN THEN EKIT=C1 : RETURN 

WW 360 IF BYTE=126 ftND IP05>C1 THEN PRINT 

••<-M*"; ■■ IP05=IP05-1 ! TEMPS CIPOS) = RET 

URN 
BM 370 IF CBYTE<32 OR BYTE=96 OR BYTE>123 

3 THEN PRINT CHRS t253J ;: RETURN 
XO 388 PRINT CHR$ CBYTEJ J ! TEMPS tIPOSJ =CHRS 

(BYTE) :IP05=IP05+Cl:RETURN 
PQ 390 REM « 

KK 400 REM « GET OPTION CHOICE 
PB 410 REM » 
XA 420 IP05=0P05C0PTI0N) :ILEH=0P05t0PTI0N 

+C1)-IP05-C2 
WM 430 A=U5RCFLIP,ADRCMENU$(IP0S}},ILEN] 
ON 440 IF BYTE=RIGHTARROM THEN 490 
PC 450 REM » GET NEKT CHOICE OH LEFT 
NG 460 0PTI0N=0PTI0N-C1:IF 0PTI0N<C1 THEN 

0PTI0N=MAX0PTI0N 
NL 470 GOTO SOO 

SM 480 REM » GET NEXT CHOICE ON RIGHT 
BQ 490 0PTI0N=0PTI0H+C1:IF OPTIOH>MftXOPTI 

ON THEN 0PTI0N=C1 
MX 500 IP05=0P05C0PTI0N) :ILEN=0P05C0PTI0H 

+C1>-IP05-C2 
MJ 510 A=U5R (FLIP, ADR (MENU$ CIPOS} ),ILEN1 
LK 520 POSITION C2,21:PRINT MENUS (CI, 36) ; 

:P0SITI0N C2,22!PRINT MENUS (39, 72) ; 
ZH 530 RETURN 
PI 548 REM » 

JA 550 REM » OPEN WINDOW 
PM 560 REM » 
RZ 570 NWINDOW=NWINDOM+Cl:WPTR=WINDDN(NMI 

NDOW) 
CO 580 WINDOWS (WPTR) =CHRS (Y) : WINDOWS (WPTR 

+C1)=CHRS (HEIGHT) ! WINDOWS (WPTR+C2) =" " 
WR 590 WPTR=WPTR+C2:WIHDOW=SCREEN+Y»C40 
YL 600 A=USR(CDPY,.WINDOW, ADR (WINDOWS (WPTR 

)),HEIGHT«C40) 
OL 610 WINDOW(NWINDOW+C1)=WPTR+HEIGHT«C40 

+C2 
PZ 620 WINDOW=WINDOW+X 
LU 630 EDGELINES(C1)=CHRS(209) :EDGELINES( 

C2) =LINES (CI, WIDTH-C2) : EDGELINES (LEN (E 

DGELINES) +C1) =CHRS (197) 
XB 640 A=USR (COPY, ADR (EDGELINES) , WINDOW, W 

IDTH) 
GL 650 EDGELINES (CI) ="H": EDGELINES (C2)=BL 

ANKSS (CI, WIDTH-C2) : EDGELINES (LEN (EDGEL 

INES) +C1) ="H" : WIHD0W=WIND0W+C40 
AL 660 FOR I=C2 TO HEIGHT-Cl : A=USR (COPY, A 

DR (EDGELINES) , WINDOW, WIDTH) : WINDOW=WIN 

D0W+C40:NEXT I 
EN 670 EDGELINE$(C1)=CHR$(218) :EDGELINES( 

C2) =LINES (CI, WIDTH-C2) : EDGELINES (LEN (E 

DGELINES) +C1) =CHRS (195) 
XJ 680 A=USR(COPY,ADR(EDGELINES), WINDOW, W 

IDTH) 
ZU 690 RETURN 
PC 700 REM * 

QT 710 REM « CLOSE WINDOW 
PG 720 REM » 

BN 730 WPTR=WINDOW(NWINDOW) 
GM 740 Y=ASC (WINDOWS (WPTR, WPTR) ) :HEIGHT=A 

SC (WINDOWS (WPTR+Cl, WPTR+Cl) ) 
WL 750 WPTR=WPTR+C2:WIND0M=SCREEN-i-YWC4e 
KG 760 ArUSR (COPY, ADR (WINDOWS (WPTR)), MIND 

OW, HEIGHT«C40) 
HI 770 NMIND0W=NWIND0M-C1 
ZI 788 RETURN 



PU 790 REM » 

ZS 800 REM « PERFORM SEARCH 

PF 810 REM » 

HD 820 DONE=CO STRAP 1298: IF NOT FORMAT T 

HEN GOSUB 1300 
LT 830 ON SEARCH GOTO 880,840 
UI 840 REM *** GET NEXT RECORD 
RU 850 RECORDNUM=RECORDNUM+Cl:NOTE »C1,X, 

Y : SECTOR (RECORDNUM) =X : BYTE (RECORDHUM) = 

Y 
DK 868 IF NOT FULLDISPLAY AND RECORDNUM< 

QL(MAXLINE) THEN RECORDNUM=QL (CURLINE- 

8+Cl) :GOTO 920 
QK 870 GOTO 930 

XU 880 REM «4H( GET PRIOR RECORD 
VB 890 IF REC0RDNUM<=C1 THEN D0NE=C1:RETU 

RN 
LA 900 REC0RDHUM=REC0RDNUM-C1 
CM 918 IF NOT FULLDISPLAY AND CURLINE>TO 

PLINE THEN RECORDNUM=QL (CURLINE-TOPLIN 

E) 
BD 920 POINT ttCl, SECTOR (RECORDNUM) , BYTE (R 

ECORDNUM) 
CF 930 INPUT «Cl;REFS, TITLES, DESC1S,DESC2 

S,DESC3S,DESC4$,DESC5S 
CD 940 POSITION 35,C1:PRINT "■■■■;: POSITI 

ON 35,Cl:PRINT SIRS (RECORDNUM) ; 
RK 950 REC0RDS=REFS 

OJ 960 REC0RDS(LEN(REC0RDS)+C1)=TITLES 
EK 970 REC0RDS(LEN(REC0RDS)+C1)=DESC1S 
FU 988 REC0RDS(LEN(REC0RDS)+C1}=DESC2S 
HE 990 REC0RDS(LEN(REC0RDS)+C1)=DESC3S 
MY 1000 RECORDS (LEN (RECORDS) 1^C1}=DESC4S 
OK 1010 REC0RDS(LEN(REC0RDS)+C1)=DESC5S 
YD 1020 X=USR(UPCASE, ADR (RECORDS), LEN (REC 

ORDS)) 
AG 1030 P1UPS=P1$:X=USR(UPCASE,ADR(P1UP$) 

,P1LEN) 
El 1040 P2UPS=P2S:X=USR(UPCASE,ADR(P2UPS) 

,P2LEN) 
HB 1050 MATCH1=C0:MATCH2=CO:IF PlS="»" TH 

EN 1130 
QG 1060 IF PlLENOCe THEN MATCH1=USR (SEAR 

CHS, ADR (PIUPS) , ADR (RECORDS) ,P1LEN-C1,L 

EN (RECORDS) -PILEN + Cl) 
ZU 1070 IF P2LENOC0 THEN MATCH2=USR (SEAR 

CHS,ADR(P2UPS) ,ADR(REC0RDS) ,P2LEN-C1,L 

EN (RECORDS) -P2LEN + C1) 
AH 1080 IF MATCHS="EITHER" AND NOT (MATC 

HI OR MATCH2) THEN RETURN 
TD 1090 IF MATCHS="BOTH" AND NOT (MATCHl 

AND MATCH2) THEN RETURN 
JE 1100 REM » 

OH 1110 REM * DISPLAY RECORD 
JK 1120 REM * 

AF 1130 IF NOT FULLDISPLAY THEN 1360 
HX 1140 POSITION C0,10:PRINT CLEARS; 
IT 1150 POSITION C0,11:PRINT CLEARS; 
DS 1160 FOR 1=13 TO 17 : POSITION C0,I:PRIN 

T CLEAR$(C1,39); JNEXT I 
Tl 1170 POSITION C0,10:PRINT REFS; 
LL 1180 POSITION C0,11:PRINT TITLES; 
IT 1190 POSITION Ce,13:PRINT DESClS; 
JS 1200 POSITION C0,14:PRINT DESC2S; 
LT 1218 POSITION CO, 15: PRINT DESC3S; 
NU 1220 POSITION Ce,16:PRINT DESC4$; 
PM 1230 POSITION C0, 17: PRINT DESC5S; 
DM 1240 IF AUTOPRINTS="OFF" THEN RETURN 
Qft 1250 TRAP 1270 
XF 1260 ? «C2;REFS:? «C2; TITLES:? »C2;DES 

CIS:? ttC2;DESC2S:? ttC2;DE5C3S:? ttC2;DE 

5C4$:? «C2JDE5C5S 
OU 1270 TRAP 40000 
B8 1288 RETURN 
ZD 1290 DONErCl: RETURN 
JI 1300 REM » 

ZV 1310 REM » FORMAT DISPLAY 
JM 1320 REM » 
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Mr 1336 FOR I=T0PLINE-C1 TO BOTLIME : POSIT 
lOM C0,Z:PRINT CLEARS; IMEXT I:LET FORM 

ftT=Cl 
EF 1340 IF FULLDISPLAY THEM POSITION CO, 8 

:PRINT '■REFERENCE:"!RETURM 
KC 1350 POSITION Ce,8:PRINT "REC MTH TITL 

E"; :RETURN 
KA 1360 REM « 

VC 1370 REM » BRIEF DISPLAY 
KG 1380 REM « 

SF 1390 IF RECORDNUM=LASTREC THEN RETURN 
5F 1400 IF LASTLINESO"" THEN X = USRCFLIP, 

ADR CLASTLINE$) , LEN tLASTLINESJ J : POSITIO 

N CO, CURLINE: PRINT LA5TLINES; 
QQ 1410 ON SEARCH GOTO 1420,1480 
NQ 1420 IF CURLINE>TOPLINE THEM CURLINE=C 

URLINE-C1:G0T0 1528 
EM 1430 X=USR(C0PY,ADRCQL$1+C1,ADRCNSAUE$ 

} , 66) : X=USR CCOPY, ADR CMSAUE^} , ADR CQL$) + 

7,66) 
QG 1440 K=USR CCOPY, MSTART, ADR CMSAUE$),NSI 

ZE+C40) 
VH 1450 POSITION CO, CURLINE : PRINT CLEAR$C 

CI, 39); 
MO 1460 X=USR CCOPY, ADR CHSAUE$),HSTART+C40 

,HSIZE) 
aZ 1470 GOTO 1520 
AU 1480 IF CURLINE<BOTLINE THEN CURLINE=C 

URLINE+Cl:GOTO 1520 
RH 1490 X=USRCC0PY,fiDRC0L$)+7,ADRCQL$)+Cl 

,66) 
NH 1500 X=USR CCOPY, W5TART+C40,W5TART,WSIZ 

E) 
UX 1510 POSITION C0,CURLINE:PRINT CLEAR$C 

CI, 39); 
EZ 1520 FOR I=C1 TO 10:IF REFSCI,I)=" " T 

HEN M0NTH$=REFSCI+C1,I+C3) !G0T0 1548 
XE 1530 NEXT l!MONTH$=" " 
YB 1540 ILEN=LENCTITLES) :IF ILEN>31 THEM 

ILEM=31 
FL 1550 LASTREC=RECDRDNUM:QLCCURLINE-8)=L 

ASTREC:IF CURLINE-8>MAXLINE THEN MAXLI 

NE=CURLINE-8 
UX 1560 LASTLIHE$=CLEARSCCl,ILEN+8) :LASTL 

INES=STR$ CRECORDNUM) : LASTLINES C5) =MONT 

H$ : LASTLINE$ C9) =TITLE$ CCl, ILEN) 
ML 1570 TRAP 1580:IF AUTOPRINT$="ON" THEN 

PRINT «C2;LASTLINES 
PD 1580 TRAP 40000 
JM 1590 X=U5RCFLIP,ADRCLASTLINE$),ILEN+8) 

rPOSITION CO, CURLINE:? CLEARS CCl, 39) ; : 

POSITION CO, CURLINE: PRINT LASTLINES 
AL 1600 RETURN 

KT 1610 REM + + 

YJ 1620 REM I START MAIN PROGRAM | 

KZ 1630 REM + + 

HS 1640 GOSUB 3380:IF NFILES>CO THEN CFIL 

E=Cl:GOSUB 3490:CL0SE ttCl:OPEN »C1,C4, 

CO, FILES 
GC 1650 GOSUB 4680 
EX 1660 X=PEEKC16)-128:IF X>=CO THEM POKE 

16,X;P0KE 53774, X 
5J 1670 TRAP 1760 

ZO 1680 POSITION 8, CI : PRINT DISKS; 
UM 1690 TRA P 1700:P0SITI0N 17,C1:PRINT "■ 

ES 



[POSITION 17,Cl:PRINT FNAME 
C CCFILE-C1)»13 + C3, CFILE*13-C3) ; 
10 1700 TRAP 1710:POSITION 35,C1:PRINT "i 

■"; :position 35,C1:PRINT STRSCRECORDN 

UM); 
HG 1710 TRAP 4000 0:P0SITI0N 9,C2:PRINT "i 

■■■■■■■■I"; : POSITION 9, C2: PRINT 

UTDEUS; 

VI 1720 POSITION 35,C2:PRINT ■■^■" : POSITI 

ON 35, C2: PRINT AUTOPRINTS; 
JZ 1730 REM » 

KE 1740 REM « CONTROL THE DISPLAY 
KF 1750 REM » 



XM 1760 GOSUB GETKEY 

liZ 1770 IF NOT SPECIAL THEN 1818 

UZ 1788 SEARCH=C2:G0SUB 790 

VI 1798 IF PEEKCCH)=:ESC OR DONE THEN 1760 

UK 1800 GOTO 1780 

CA 1818 IF BYTEOUPARROH THEN 1838 

ZK 1820 SEARCH=C1: GOSUB 798: GOTO 1768 

XM 1830 IF BYTEODOHNARROM THEN 1850 

AR 1840 SEARCH=C2: GOSUB 790:G0T0 1768 

HR 1858 IF BYTEOLEFTARROW THEM 1878 

OM 1868 GOSUB 420:GOTO 1760 

NK 1870 IF BYTEORIGHTARROH THEM 1898 

EC 1888 GOSUB 420 : GOTO 1760 

MF 1890 IF BYTEORETURN THEN 1768 

XU 1900 ON OPTION GOTO 1910,2270,2478,259 

8,2750,2920,3050,3170,3330 
^JX 1910 REM * 

PH 1920 REM * SEARCH OPTION 
KD 1930 REM « 

All 1940 X=C4:Y=T0PLINE:HEIGHT=6:WIDTH=33 
AC 1950 GOSUB MINDOHOPEN 

MU I960 POSI TION 18, C4: PRINT 

; POSITION 18,5:PRINT 




AT 1970 POSITION 24,6:PRINT "I 

CHS="EITHER" : Pl$= P2$="" 

GE 1980 TEMPS= X=C4:Y=T0PLINE+C2: GOSUB 

2210 
DQ 1990 P1S=TEMPS:P1LEN=LENCP1S) :IF IP05= 

CI THEN 2180 
BB 2000 POSITION 18,C4:PRINT PlS; 
FX 2010 TEMPS="":X=C4:Y=T0PLINE+C3: GOSUB 

2210 
ED 2020 P2S=TEMPS:P2LEN=LENCP2S) :IF IPOS= 

CI THEN 2180 
FK 2030 POSITION 18,5:PRINT P2S; 
GF 2040 GOSUB MIMDOMCLOSE 
JS 2050 REM » 

ML 2060 REM « PROMPT FOR RECORD MATCH 
JV 2070 REM » 
BY 2080 X=5:Y=10:HEIGHT=5:MIDTH=32 

ZK 2090 GOSUB WINDOWOPEN 

TM 2100 POSITI ON 7, 12: PRINT "[HiEKnmB 

UK 2110 POSITIO N 22,13:PRI NT "QaEHS"; 

DK 2120 TEMPS = "fiTin!ilJ*i!IJrl" 

HH 2130 XP=10:YP=13 

AY 2140 NCH0ICE=C2:MP0SCC1)=C1:MP0SCC2)=6 

:MP05CC3)=13 
FU 2150 GOSUB 3780 
TN 2160 MATCHS=CHOICES 
MY 2170 POSITION 24,6:PRINT MATCHS 
JQ 2180 POSITION CO, CO: PRINT CHR$C145};:G 

OSUB MINDOMCLOSE 
Cr 2190 TRAP 2200: IF RECORDNUM>C0 THEN PO 

INT ttCl,SECTORCCl) ,BYTECC1) 
OZ 2200 GOSUB 1300:CURL1NE=8:MAXLINE=C0:Q 

L CCO) =C0 : LASTLINESr REC0RDNUM=C0 : SSA 

UE=C0:GOTO 1680 
JK 2210 REM « 

KM 2220 REM » GET SEARCH PHRASE 
JQ 2230 REM * 
UL 2240 EXIT£C0iIPOS=Cl: POSITION X+C2,Y:P 

RINT "IjJnj^HJM": 
TH 2250 GOSUB GETKEY:GOSUB 320:IF IPOS<=P 

SIZE AND EXIT=CO THEM 2250 
AM 2260 RETURN 
KC 2278 REM » 
BJ 2288 REM » FILE OPTION 
KI 2298 REM » 

BO 2300 X=C4:Y=C2:MIDTH=20:HEIGHT=17 
YM 2310 GOSUB 3380: GOSUB WINDOWOPEN 
OS 2320 POSITION 6, C3: PRINT "a^Hai 



sssm 

LK 2330 IF NFILES^ CO THEN POSITION 6,5:PR 
INT CHRS C253) : ' TriB J<i4--Mii:M>><-i:< " ; FOR I 
=C1 TO 2O0:NEXT I : GOTO 2440 

m 2340 XP=7:YP=5:TEMP$=FNAMES 
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TH 2350 ft=U5R{FLIP,flDRCTEMPS),LENCTEMPSJJ 

to 2368 HCH0ICE=NFILE5:IF MCH0ICE>12 THEM 
NCH0ICE=12 

AD 2370 FOR I=C1 TO NCHOICE+Cl 

Y2 2388 MP05CI)=(I-C1J*13+C1 

FX 2390 NEXT I 

OR 2400 G05UB 3590 : CFILE=CHOICE 
^« 2430 GOSUB 3490: CLOSE «C1:0PEM «C1,C4, 

'€P 2440 POSITION C0,C0:PRIHT CHRSC145); 
^Q 2450 GOSUB HIND0HCL05E 
KX 2460 RECORDMUM=C0:5SflWE=C0:GOTO 1680 
■JKG 2470 REM » 
MM 2480 REM « DISK OPTION 
iCM 2490 REM * 
m 2500 X=5:Y=C4!WIDTH=28:HEIGHT=5 

2J 2510 GOSUB MINDOMOPEN 

FN 2520 POSITION 10, 6: PRINT "\SE3M"l ^_ 
DM 2530 GOSUB GETKEY:IF BYTE<ft5C t"l"J OH 

BYTE>ftSCC"8"} THEN BYTE=ftSC {"1") 
,TI 2540 DISKS=CHR$tBYTEJ IPRIHT DISK$ 
EU 2550 POSITION CO,C0:PRINT CHR$ C145J ; 
AD 2560 RECORDNUM=C0:SSAUE=C0: GOSUB WINDO 

MCLOSE 
HE 2570 IF DISKS<>FILE$tC2,C2) THEN 2300 
UR 2580 GOTO 1680 
KO 2590 REM « 

tZ 2600 REM » RECORD OPTION 
JS 2610 REM » 

m 2620 X=5:Y=C4!WIDTH=20!HEIGHT=5 
ZR 2630 GOSUB HINDOMOPEN 

VN 2640 IF FULLDISPLAY THEN 2670 ^^ 
DG 2650 POSI TION 6 , 6; PRINT CHRS C253) ; "031] 

—"■■POSITION 6, 7: PRINT " 



EF 
KQ 

dv 

CK 

VD 

IX 
XL 

OL 

OJ 
KG 
UH 
KM 
JM 

AL 
JY 

NS 

HP 

JO 

XE 

UN 

LB 

MB 

OA 

NK 

TZ 



ALID OPTION FOR 
BRIEF DISPLAY MODE 



2660 FOR I=C1 TO 208: NEXT I : GOTO 2720 
2670 POSITION 10, 6: PRINT "QIiailiEBI^*- 

2680 IPOS=Cl!EXIT=CO 

2698 GOSUB GETKEY: GOSUB 328 : IF IP0S<=3 

AND EXIT=C8 THEN 2698 
2700 TRAP 2710:X=UALtTEMPSJ :RECORDNUM= 
X:GOTO 2720 
2718 RECORDNUM=CO 

2720 TRAP 40000: POSITION CO, CO: PRINT C 
HR$C145); : GOSUB MINDOMCLOSE 
2730 IF FULLDISPLAY AND RECORDNUMOCB 
THEN TRAP 1290: GOSUB 920 
2740 GOTO 1680 
2750 REM » 

2760 REM * KEYMORDS OPTION 
2770 REM » 

2780 X=C0 : Y=T0PLINE-C1 : HEIGHT=13 : WIDTH 
=40 

2798 GOSUB MINDOMOPEN 

2800 POSITION C 2,T0PLINE: PRIN T "EHHiEl 

^m m m II I ■■ ■ ■ ■ ■ ^M ■ "1~^M~~B~1 1 B I I I ll I ■ 



ADVENTURE BASIC BBS CASSETTE 



2810 POSITIO N C2, TOPLINE+Cl : P RINT " [HiH 

I M > 1 'I d ^^TflnfTWiTTT^ I ^ 111^ mitT-% A fi TTi^B^^ i^ '^" * 

2820 POSITI ON C2, T0PLINE+C2 : PRINT " IHW 

I rf " ■* ^ " ""^ ^uw^'UN^Mmin.ip^iJu , 

2830 POSITION C2,TQPLINE+C 3:PRINT " \*t:\ 

F 1 Mil ^ 4 J'^iif H ' I ^Mil l''lMrt^f I'I'h Jil M' * 

r.1 ■ I w ^m J ».^n.i y i ^»n ^ y^n.i.ijin'>i , 

2840 POSITI ON C2, TQPLINE + C4 rPRIN T " lir:i:i 
ItH i'MTT'l^T^ri'l jWfil I JBIH^^~J 'hi j'i J 1H^" ' 
2850 POSITION C2. TQPLINE+5 ; PRINT " HHHiJ 



LEARNING MEMORY MIDI ML MODE 



2860 POSITI N C 2 , X ^y,^-^.*!!*.^."'".^. ' .^ Jl-^^A "GUnH 



TOR MUSIC 0/S P/M PATCH PRINTER 



2870 POSITION C2,T0PLINE-t-7: PRINT "QECEl 



I5K REUIEM SOUND SPEECH ST TAPE 



2880 POSITION C2, TOPLINE-t-8: PRINT " l¥i 



UPDATE UTILITY MORD PROCESSING 



2890 POSITION C2, TOPLINE+9 : PRINT "Q^C] 

2900 POSITION 7,T0PLINE+ll:PRIMT "Pres 

s <RETURN> to Continue"; 

2918 GOSUB GETKEY: GOSUB MINDOMCLOSE : GO 



TO 1768 
KB 2928 REM « 

XF 2930 REM » AUTOPRINT OPTION 
KH 2940 REM » 
5U 2950 X=C4:Y=C4:HEIGHT=5:HIDTH=25 

AG 2960 GOSUB MINDOMOPEN 

GY 2970 POSITIO N 6,6; PRINT "MUMJiHini" : 

MN 2980 TEMPS="EL«iiaJ" 

lU 2990 XP=17:YP=6 

NF 3000 NCH0ICE=C2:MP0StCl)=Cl;MP05CC2J=C 

4:MP0SCC3J=8 ^ _ 

FE 3010 GOSUB 3780: REM tHAMii![il<iT^i 

HQ 3028 AUTOPRINT$=CHOICES 

GD 3030 GOSUB MINDOMCLOSE 

TM 3040 GOTO 1680 

JT 3050 REM * 

LX 3060 REM * OUTPUT OPTION 

JZ 3070 REM * 

PZ 3080 X=C4:Y=C4:HEIGHT=5:MIDTH=32 

ZY 3090 GOSUB MINDOMOPEN 

FI 3100 POSITION 6, 6:PRINT "lilHJ-Jlka>M'H<J 

PR 3110 IPOS=Cl:EXIT=C0 

ZP 3120 GOSUB GETKEY: GOSUB 320: IF IP05<FI 

LELEN AND EXIT=C0 THEN 3120 
OH 3138 IF IP0S<=C1 THEN 3150 
DA 3135 IF TEMPS (CI, CI) ="S" OR TEMPS CC1,C 

1J="E" THEN 3150 
FM 3140 OUTDEUS=TEMPS:TRAP 3158: CLOSE «C2 

:OPEN ttC2,8,C0,OUTDEyS 
Jl 3150 POSITION CO, CO: PRINT CHRSC1451;:G 

OSUB MINDOMCLOSE 
UE 3160 GOTO 1688 
KB 3178 REM » 

LR 3188 REM » DISPLAY OPTION 
KH 3198 REM » 

MZ 3200 X=4;Y=4:HEIGHT=5:MIDTH=26 
ZE 3210 GOSUB MINDOMOPEN 
VO 3220 POSITION 6,6:PRINT 

MC 3230 XP = 15:YP=6:TEMPS="[i 

ZD 3240 NCH0ICE=C2:MP0SCC1J=C1:MP05(C2J=6 

:MP05CC3)=12 
FX 3250 GOSUB 3780 
JN 3260 POSITION C0,C8:PRINT CHRSC145);:G 

OSUB MINDOMCLOSE 
KA 3270 IF NOT (CH0ICES="FULL" AND FULLD 

I5PLAY=C0) THEN 3300 
BQ 3280 X=USRCC0PY,HSTART,ADRCMSAVES),MSI 

ZE+C40J :SSAVE=1 
HN 3290 FULLDISPLAY=Cl: GOSUB 130O:RECORDN 

UM=LA5TREC:IF LASTRECOCO THEN GOSUB 9 

28 
VJ 3295 GOTO 1688 
F« 3308 IF HOT (CHOICES="BRIEF" AMD FULL 

DISPLAY=C1J THEM 1760 
RP 3310 FULLDISPLAY=C0:IF MOT SSAUE THEN 
CURLINE=8 : LASTLINES= GOSUB 1300 : GOT 

1760 
TV 3320 SSAUE=C0:RECORDNUM=LASTREC:A=U5Rt 

COPY, ADR tMSAVESJ ,MSTART,MSIZE+C40) :IF 

LASTRECOCO THEN GOSUB 920 
Ua 3325 GOTO 1688 

JT 3330 REM » 

ZS 3340 REM * \i'.kkmi\-^tMT\ 

JZ 3350 REM » 

DG 3360 GRAPHICS CO: END 

KI 3380 REM * 

JM 3390 REM « DISK DIRECTORY 

JM 3408 REM * 

RO 3418 TRAP 3478 

HJ 3420 FILES CC2,C2J=DISKS:TEMPSrFILES:TE 

MPSt4)="».DAT" 

MB 3430 FMAMES= HFILES=CO 

EK 3448 CLOSE »C4 : OPEN »C4,6,C8.TEMPS 

ly 3458 INPUT «C4, TEMPS: IF TEMPS til, 13J <> 

"DAT" THEM 3458 
KP 3460 HFILES=NFILES+Cl:FHAMESltMFILES-C 

l}*13-i-Cll=TEMPS:G0T0 3456 



„Display: 
FULL BRIEF 
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XM 3478 TRAP 3475 : CLOSE ttC4 

BR 3475 IF NFZLES=Ce THEN FNAME$=" 

" : RETURN 
BH 3488 RETURN 
KN 3498 REM « 

OB 3508 REM * SELECT FILENAME 
JR 3518 REM » 
Q5 3528 CH0ICES=FNAMESCCCFILE-C1J*13+C1,C 

FILE»13J 
XF 3538 FILES t4J="" 
XH 3548 FOR I=C3 TO 10 
ZL 3558 IF CHOICES f I, IJ<>" " THEN FILES tl 

+1,I+C1J -CHOICES tl, I) 
FT 3568 NEXT I 

EC 3578 FILES CLENCFILES)+C1J =". DAT" 
8J 3588 RETURN 
KP 3598 REM » 

VX 3608 REM * VERTICAL MENU 
JT 3610 REM » 
NF 3628 FOR I=C1 TO NCHOICE: POSITION XP,Y 

P+I-Cl : PRINT TEMPS tMPOS CI> , MPOS CI+Cl) - 

CIJ; IHEXT I 
SZ 3630 CH0ICE=C1 
EM 3640 IPOS=MPOSCCH0ICE} :ILEN=MPOSCCHOIC 

E+C1J-IP05 
LT 3658 A=U5RCFLIP,ADRtTEMPStIP05JJ,ILENJ 
PG 3668 POSITION XP, YP+CHOICE-Cl : PRINT TE 

MPS CMPOS CCHOICEl , MPOS CCHOICE+Cl) -CIJ ; 
XZ 3678 GOSUB GETKEY 

CQ 3688 IF BYTEOUPARROM THEN 3720 
ZQ 3698 A=USRCFLIP,ADRCTEMPSCIP0S)),ILEN1 

:P05ITI0H XP,YP+CHOICE-Cl:PRINT TEMPS t 

MPOS CCHOICE) , MPOS CCHOICE+Cl J -CIJ ; 
RZ 3708 CHOICE=CHOICE-Cl:IF CH0ICE<C1 THE 

N CHOICE=NCHOICE 
SX 3710 GOTO 3648 

ZS 3728 IF BYTEODONNARROM THEN 3760 
ZA 3738 A=USRtFLIP,ADRCTEMPSCIP05JJ ,ILENJ 

:P0SITI0N XP, YP+CHOICE-Cl: PRINT TEMPSt 

MPOSCCHOICEJ ,MP0SCCH0ICE+C1J-C1J ; 
HT 3748 CH0ICE=CH0ICE+C1:IF CHOICE>NCHOIC 

E THEN CH0ICE=C1 
TJ 3758 GOTO 3640 

XZ 3768 IF BYTEORETURN THEN 3670 
BK 3778 RETURN 
KQ 3788 REM * 

DZ 3798 REM * HORIZONTAL MENU 
JU 3888 REM » 
SI 3818 I=C1 
YZ 3828 IPOS=MPOSCIJ 
ZF 3838 ILEN=MP0SCI+C1J-IP0S-C1 
LU 3848 A=USRCFLIP,ADRCTEMPSCIP0SJJ,ILENJ 
AL 3858 POSITION XP,YP:PRINT TEMPS; 
YA 3868 GOSUB GETKEY 

GY 3878 IF BYTEORIGHTARROM THEN 3910 
MG 3888 A=USRCFLIP,A[>R(TEMPSCIP0SJJ,ILENJ 
YH 3890 I=I+Cl:IF I>NCHOICE THEN I=C1 
SM 3980 GOTO 3820 

SK 3910 IF BYTEOLEFTARRON THEN 3950 
LQ 3920 A=USRCFLIP,A[>R{TEMPSCIPOSJJ,ILEN> 
CA 3930 I=I-Cl:IF KCl THEN I=NCHOICE 
TI 3940 GOTO 3820 

ZB 3950 IF BYTEORETURN THEN 3860 
OT 3960 CHOICES=TEMPStIPOS,IPOS+ILEN-ClJ 
BO 3970 RETURN 
KU 3980 REM * 

JJ 3990 REM » DISPLAY HELP SCREENS 
JF 4000 REM » 

CY 4010 X=C0:Y=8:HEIGHT=13:MIDTH=C4O 
BX 4020 XS=PEEKt84J :YS=PEEKC85J 
ZH 4030 GOSUB MINDOMOPEN 
ZB 4040 RESTORE 5010+ tOPTION-ClJ»10 
LL 4050 READ J:FOR I=C1 TO J 
TF 4060 READ RECORDS : POSITION C2, CTOPLINE 

+I-C1J: PRINT RECORDS; : NEXT I 
CQ 4070 POSITION 7, BOTLINE+Cl : PRINT "Pres 

s <RETURN> to Continue"; 
EO 4080 GET ttC3,BYTE 



%H 4090 GOSUB WINDOMCLOSE 

15 4100 POKE 84,XS:P0KE 85, YS 

PH 4110 RETURN 

QH 4120 REM * 

KU 4130 REM « PROGRAM INITIALIZATION 

JT 4140 REM * 

HN 4150 LINELEN=39:FILELEN=15:Ce=0:Cl=l:C 

2=2 : C3=3 : C4=4 : C40=40 : NRECS=350 : PSIZE=2 


YR 4160 DIM FNAMESC12*tFILELEN-C2JJ,TEMPS 

fl2»CFILELEN-C2J J ,CLEARSCLINELEN+C1J ,0 

UTDEVS CFILELEN J , FILES (FILELEN J 
UH 4170 DIM REFSCLINELENJ .TITLES CLINELENJ 

. DESCIS CLINELENJ , DESC2S CLINELENJ , DESC3 

S CLINELENJ 
Xi4 4180 DIM DESC4$ CLINELENJ, DESC5SCLINELE 

N J , RECORDS C7«LINELENJ , LASTLINES CLINELE 

NJ 

CD 4190 DIM MPDSC10J,DP0SC10J 
E 4200 DIM CHOICES C20 J, MENUS C72J, MONTHS C 

C3J,MATCHSC6J 
YH 4210 DIM P1$CPSIZEJ,P2SCPSIZEJ,P1UPSCP 

SIZEJ,P2UP$CPSIZEJ 
QE 4220 DIM DISKS CCIJ , AUTOPRINTS CC3J 
KV 4230 DIM SECTOR CNRECSJ , BYTE CNRECSJ 
UJ 4240 DIM MIND0MSC1210J,MIND0MC5J,MSAUE 

SC440J 
AD 4250 DIM BLANKSS CC40J , LINES CC4ej , EDGEL 

INE$(C4ej 
PJ 4260 MAX0PTI0N=9:T0PLINE=9:B0TLINE=19: 

CURLINE=8 : MAXLINE=CO : QL CCOJ =C0 : OPTION= 

CI : LET FORMAT=CO 
NY 4270 FILE$="DX:" 
KB 4280 CLEARS ecu =" ": CLEARS CLINELEN+CIJ 

=" ": CLEARS CC2J=CLEARS ecu 
PL 4290 BLANKSS ecu =CHRS C128J : BLANKSS CC40 

J=CHRSC128J :BLANKSSCC2J=BLANKS$CCU 
XE 4300 LINES ecu =CHRS C210J : LINES CC40 J =CH 

R$C210J :LINESCC2J=LINESCC1J 

4310 DISKS="1" : RECORDNUM^CO : OUTDEUS="P 

I":LASTLINES=""!FULLDISPLAY=C1:LASTREC 

=C0 : SSAUE=CO : AUT0PRINTS="0FF" 
GL 4320 LET RETURN=155 
PU 4330 RIGHTARR0M=42:LEFTARR0M=43:D0MNAR 

R0M=61 : UPARR0N=45 
CF 4340 E5C=28:CH=764:HELPKEY=732:CTRLH=8 
IG 4350 POKE HELPKEY,CO 
KH 4360 LET GETKEY=220 : MIND0M0PEN=540 : MIN 

D0WCL05E=700 
BJ 4370 MEHUS="Search| 



File Disk Record 
Kejjwords ftutoPrint Output Displa 
Exit 



HK 4380 0P0SCC1J=C1:0P0SCC2J=9:0P0SCC3J=1 

5:0P0SC4J=21:0P0SC5J=29 
AX 4390 0P0SC6J=39:0P0SC7J=50:0P0SC8J=58: 

OPOS C9J =67 : OPOS CIO J =73 
JU 4440 NMINDOM=CO:MINDONCC1J=C1 
LB 4450 SCREEN=PEEKC88J+256«PEEKC89J 
HY 4460 WSTART=SCREEN+T0PLINE«C40:WSIZE=C 

B0TLINE-T0PLINEJ»C40 
HH 4470 OPEN ttC3, 4, CO, "K : " 
KL 4480 REM » 

HX 4490 REM * DISPLAY TITLE SCREEN 
JP 4500 REM « 
FI 4510 GRAPHICS CO:POKE 708,Ce:P0KE 709, 

CO:POKE 710,CO:POKE 711, CO 
JO 4520 DL=PEEKC560I+256«PEEKC561J+4 
IE 4530 POKE DL-C1,71 

LC 4540 FOR X=C2 TO 6:P0KE DL+X,7:NEXT X 
EF 4550 FOR X=7 TO IBiPOKE DL+X,6:NEXT X 
EO 4560 POKE DL+19,65 
YL 4570 POKE DL+2e, PEEK C560J : POKE DL+21,P 

EEKC56U 
BC 4580 POKE 87, C2 
IP 4590 POSITION C3,C1:PRINT tt6;"EASYFIND 

y2.0" 
OR 4600 POSITION C3,C3: PRINT tt6; "MAGAZINE 
aM INDEX" 



HN 
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^ EasyFind 



contuiued 



20 46ie POKE 87, Cl „„,„, »c . ..c^mtTT^ El 

5R 4620 PO SITION C2,7:PRIHT tt6 ; "BQlillQ B 

PK 4 ^^ 5ITI0N C2, 9: PRINT tt6;"aOi mS 

VD 46^MB ^SIT IQN Cl, 11: PRINT tt6; "im^=t'J'B 

HD ^2 g c^ION C3, 14 SPRINT tt6; "GiiailMffi] 

HE ^JPOSI TION Cl, 15 SPRINT »6; "0033331 

BE IJVseV osJ TIQN C3, 16: PRINT »6i"JTTfWWi 

H6 ' 4^fl"p' oKE 7B8,C40:P0KE 710,74:P0KE 712 

,128 
m 4665 X=U5R(CUP,C4) 
BJ 4670 RETURN 
KP 4680 REM « 

KM 4690 REN * DISPLAY MAIN SCREEN 
JT 4700 REM » 
OA 4710 GRAPHICS CO 
SK 4720 5ETC0L0R C2, CO, 8 : 5ETC0L0R C1,C0,C 


LP 4730 POKE 752, Cl: REM TURN C URSOR OFF 
GM 4740 POSITION CO,CO;PRINT "| MitiTT"^ 



05 4750 POSITION CO,Cl!PRINT 
YZ 4760 POSITION C0,C2;PRINT 
IK 4770 POSITION C0,C3;PRINT 



I Output! 



RO 4810 POSITION C0.7!PRIN 



IK Ts^oTosTrToNToTsTpRiNr^Tr Help 
ailable for each option by ||"; 

"11 pn 

.>' 



is av 



YO 4830 POSITION C0,9:PRINT "|| highlighti 

ng the option and then 
DI 4840 POSITION C0,10:PRINT "H^ pressing 

<HELP> or <CTRL>H 
AE 4850 POSITION C0,11:PRINT 



VI 4860 POSITION CO, 12: PRINT "ll <RETURN> 
= Selects highlighted option!!"; 

aO 4870 POSITION CO, 13: PRINT "|!^ <START> 
= Search and display records!!"; 

m 4880 POSITION C0,14:PRINT "!!" <E5C> 
= Stop record search ||"; 

DO 4850 POSITION CO, 15 SPRINT "!l 

.11"; 

EG 4900 POSITION C0,16:PRINT "If LEFT, RICH 

T ARROMS highlight the nenu ll"; 
TB 4910 POSITION C0,17sPRINT "If opti 

ons at the screen bottoM l|"; 
XV 4920 POSITION C0,18sPRINT "!rUP,DOHN A 

RROHS Will display the next M"; 
OE 4930 POSITION C0,19sPRINT "If or p 

revious record I!"; 

BI 4940 POSITION C0,2e5PRINT ■■|* *-rtT^T**.T'IJB 




FN 4980 POSITION CO,CO:PRINT CHrIc145}; 

lA 4990 POKE SCREEN+959,195 

AD 5000 RETURN 

JL 5010 DATA 10 . [.i^iif . 

DJ 5011 DATA 



hrases restrict t 



of references to those that 



QA 5012 DAtA 



the specified search 



JJLfcl±U 
VG 5013 DATA H MIWJAf jmrj.M JII AL-JXirn'MIM", 



asked if the reference Must 



BI 5014 DA TA 

5F 5015 DATA EITHER] 

m 

TI 5016 DA TA 

PC 5017 DAT A 

RY 5018 DATA 

EjE 

JX 5019 DATA kJJJhV*-- 



IBOTHI 



lou enter » as the first 



'hrase all records will be 



EasyFind is case-insensttive 



nii 



er and lower case 



ZU 5020 DATA 7, 



EasgFind will displai 




VC 5021 DAT A 

CU 5022 DATA 

D« 5023 DAT A 

BZ 5024 DATA <RETURN> 

ZF 5025 D ATA 

S3QE3 

KS 5026 DATA 
RT 5030 DATA 7 , 

ll»:1ll ' »!|llt'jj 



files on your disk with an e 



of ".DAT". The UP and DOHN 



keys Will select a file and 



will activate that 



The file activated will be u 



rfJ:lJJT-m 



Data disks can be 



BF 5031 DATA 

SSSB 

AA 5032 DATA 

EEET] 
SD 5033 DATA 



fron 1 to 8. includiH' 



r^TTTTTI 



Disk drives can be chanqed a 



lou choose. 



Mhen pron 



GI 5034 DATA 
PK 5035 D ATA 

l--t-^\\•^■T\ 

MV 5036 DATA 

ja 5040 DATA 8 , 

AY 5041 DATA 

oamxiz] 

lU 5042 DATA 
GX 5043 DATA 
LZ 5044 DATA 

EDOB 

EB 5045 DATA 

niEIKEEQ 

TQ 5046 DATA 

JN 5047 DATA 
MB 5050 DATA 5, 



enter a nunber betwe 



EasyFind can access record 



been selected b* 



nuMber. This option is onl< 



nsnciiE 



for "RECORD:" lUst enter a \ 



nunber and EasyFind will dis 



record if it contains the se 



Keywords have been added t 



FO 5051 DAT A 

PA 5052 DATA I'MJiL-aWJ? 

IM 5053 DATA 

HV-HiTJ 
XK 5054 DATA 
HX 5060 DA TA 6, 

YH 5061 DATA 

lY 5062 DA TA 

TH 5065 D ATA 

HN 5864 DATA 



to facilitate searchin 



[iE^EC>MiaS33Z] 



in Sierra services Atari Ma 



AutoPrmt Will send each s 



record to the Output Device 



in the options section. The 



Will be in the sane fornat a 



ear on screen. This opti 
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EasyFind continued 



RH 5665 DATA 

HM 5878 DATA 7, 

YO 5071 DAT A 

PU 5672 DATA 

on 

lU 5673 DATA 

58 5674 DATA 



kJIIJiUBQNl 



YOU can output any selecte 



output device. Hhen 



for an "Output Device:" sih 



valid device speci 



GN 5675 DATA 

[nm 

BC 5676 D ATA 

uaaaM 

EK 5686 DATA 8, 



H!H--»t--jmiHiL*4.TJjaT7TTU 



Output is controlled b< 



Records can be shown in ei 



HO 5681 D ATA 
TO 5882 DA TA 
KO 5683 D ATA 
TG 5684 DATA 
KX 5685 D ATA 
GH 5686 DATA 

UWEOSS 

VO 5687 DATA 
DT 569Q DATA 2, 



or brief dispia 



shows 1 record on screen at 



The brief display shows 1 li 



record, but only shows the r 



nuMber. nonth. and title. 



le back and forth betwee 



two display formats. 

EYit SinPl 



Get 

this 

issue 

on 

Disic! 



$9.50 plus $1.50 

shipping and 
handling 




Call 
(617) 892-9230 



nxzE 



XP 5691 DATA 



returns to BnSiC. 



K3 Review 



continued from page S8 



gram allowed you to use the cursor keys 
on the keyboard, to change X- and Y- 
positions a single digit at a time. You can 
specify a line or surface, once the first seg- 
ment is defined. Color and Z-positions are 
also prompted for. This mode of entry is 
a little confusing at first, and takes some 
getting used to. With some practice, you'll 
probably find it superior to the text mode 
of entry, however. 

Once your image is defined, you can 
display it — with all the features noted 
above — or save it to disk. If you have an 
interesting view on the screen, just press 
CTRL-P to make a ciuick (\'ery quick) dump 
to your Epson or compatible printer. CTRL- 
SHIFT-P will generate a full-page graphic 
dump of your 3D graphic at its current 
view size and angle. While viewing your 
image, if you want a Microlllustrator copy 
of the display, simply press CTRI,-SHIFT- 
T. It is saved as D: PICTURE, the default 
filename used by IVIicroIllustrator (with 
Koala or Atari touch tablets) when trans- 
ferring picture files in an uncompressed 
(G2-sector) file. This only works in the 
high-resolution mode, as does printing. 
The SELECT key, while displaying an im- 



age, changes graphics modes. The lower 
resolution gives you three-color objects 
when shading is enabled. 

One of the neatest effects you can 
achieve with S3DP is seen when you press 
the y key while rotating an object. This 
temporarily disables screen clearing be- 
tween image redraws. You have an instant 
high-resolution spirograph. Quick dumps 
of these images can be used to make some 
smart-looking greeting cards. 

After you've created yoiu' beautiful city- 
scape, there's something else you must try. 
Go back to the menu and select the load 
command, while pressing the OPTION 
key. Load up your X-Wing fighter image 
and go back to your picture. Voila, the two 
images have been merged! Now your X- 
Wing fighter looks as if it's flying over the 
city. This feature allows you to create a 
sophisticated composite image from sim- 
ple building blocks. Individual objects' 
relative positioning can be set up before 
the merge by adjusting the current object's 
X-, Y- and Z-position, with another key 
combination similar to that described for 
rotating objects. 

If you have scads of Solid States files. 



you'll be happy to know that a converter 
utility comes with S3DP. This program 
will transform Solid States files into the 
proper format for S3DP viewing and edit- 
ing. Another BASIC utility program is 
provided, to help you create your own 
printer driver if your printer's not Epson 
compatible. 

This program has features too numerous 
to cover in detail. I've found Super 3D 
Plotter II to be fast, bug free and great fun 
to use. The manual's tutorial approach is 
helpful. Its greatest limitation is that it can 
handle only 253 points maximum. That 
isn't a lot, and there's no way around it. 
I would settle for much sJou'er rotations, 
in exchange for the ability to define thou- 
sands of points (up to the memory limit 
of the computer), rather than just a couple 
hundred. If you're having trouble with ge- 
ometry in school, you will find this pro- 
gram educational. It's not often you can 
have this much fun and learn a lot at the 
same time. 

If you liked Solid States, then Super 3D 
Plotter II is a must! H 
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READER SERVICE # 



ADVERTISER 



READER SERVICE # 



ADVERTISER 



133 Abacus Software 96 

128 American TV 79 

- ANALOG Publishing 2, 5, 8, 95 

130 Banana Software 84 

113 Beckemeyer Development Tools 42 

114 Compucat 42 

107 Computability 20, 21 

108 Computer Creations, Inc 24 

131 Computer Garden 84 

123 Computer Mail Order 68, 69 

106 Computer Repeats, Inc 19 

111 Computer Software Services 40 

129 Electronic One ., 84 

125 Future Systems Software 74 

127 Lyco Computer 77 

134 Master Designer Software OBC 

120 Megamax, Inc 60 

This index is an additional sen'ice. While every effort is made (o provide a complete 



122 Micro W 61 

105 Microdaft 14 

110 Microtyme 36 

112 Midisoft Corp 41 

132 Newell Industries, Inc 84 

104 Paradox Enterprises 9 

135 Protecto 80, 81, 82, 83 

119 Regent Software 60 

124 S & S Wholesalers 70 

116 Side-line Computer 43 

103 Sierra Services 9 

126 Software Discounters of America 75 

121 Southern Software 61 

101 Sublogic Corp IPC 

109 TD.I. Software 35 

118 TDC Distributors 53 

115 Thompson Electronics 42 

117 XLEnt Software ** 51 

and accurate listing, the publisher cannot be responsible for inadvertent errors. 
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Since issue 1. ANALOG Computing s rf/sA subcnp 
'tions have eliminated ttie need for you lo spend tioan^ 
'typing in programs from ttie magazine. All ol the pro^ 
f grams in the magazine are on the disk version. A i-yeai 
f subscription (12 issues) is $105.00: a '/s-year (6 issues) is 
f $59.00. To subscribe on disl<, send your check or money or- 
fder to: DISK SUBSCRIPTION, P. O. BOX 625. HOLMES. PA 
^19043. For faster service, call our toll-free U.S. order line: 
800-345-811^ lin P./] mil Ron-RR':>.o.Kt.'i\ 
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Simple words 't^ 




< 





TextPro-Wordprocessor with professional features and easy-to-use! Full-screen editing with 
mouse or keyboard shortcuts. High speed input, scrolling and editing; sideways printing; multi- 
column output; flexible printer installatbn; automatic index and table of contents; up to 180 
chars/line; 30 definable function keys; metafile output; much more. $49.95 

PalntPro — Express yourself with PaintPro, the GEM-based, full-page graphics design 
package. Multiple windows. Cut & paste between windows. Free-form sketching; lines, 
circles, boxes, text, fill, zoom, undo, rotate, invert, help. Edit fill and line patterns. $49.95 
PaintPro Library #1 -hundreds of clip art pictures, 5 GDOS fonts. Fills 3 disks. $29.95 



Data Retrieve— Data management was never this easy! Help screens; lightning-fast 
operatbn; tailorable display; user-definable edit masks; up to 64,000 records. Supports 
multiple files. Includes RAM-disk programs. Complete search, sort and file subsetting. 
Interfaces to TextPro. Easy printer control. Includes five common database setups. $49.95 




PowerLedger— A powerful, large capacity (65,000 by 65,000 cells) spreadsheet package 
that also features a built-in calculator, online notepad and integrated graphics. Displays your 
data in numerical or graphical format instantly in up to seven different chart types (pie, bar, 3D 
bar, line, etc.). 14 digit precisbn with 37 math functions and more. $79.95 



Leam the inside story of your ST 



A\-<.2l. 



TRICKS & TIPS 




IntotoMDIPfo q ranidiK i 



TRICKS & TIPS 
Fantastic collection of programs and 
info for the ST. Complete programs 
include: super-fast RAM disk; time- 
saving printer spooler; color print 
hardcopy; plotter output hardcopy; 
creating accessories. Money saving 
tricks and tips. 260pp $19.95 

Intro to MIDI Programming 
Discover the magic of MIDI! Learn 
MIDI programming, how to program 
your synthesizer, how to buy MIDI 
software, how to buy a synthesizer, 
use extended BIOS. Includes source 
code for ST music box auto-player 
from Xlent Software. 250pp $19.95 

ST Disk Drives-Inside and Out 

Includes chapters on files, file 
structures and data management. 
Thoroughly discusses the floppy disk, 
the hard disk and the RAM disk both 
from a programming and a technical 
perspective. Includes several full- 
length utilities and programming tools 
that enable you to further explore to 
ST disk drives. 450pp $24.95 



Other software and books also available. Call or write for your 
free catalog or the name of your nearest dealer. Or you can 
order directly using your Visa, MO or Amex card. Add $4.00 per 
order for shipping and handling. Foreign orders add $12.00 per 
item. 30-day money back guarantee on software. Dealers 
inquires welcome — over 2000 dealers nationwide. 

Atari and Atari ST are trademari<s of Alan Corp. GEM is a trademark of DigKal Research Inc. 





INTERNALS 
Essential guide to the inside 
information of the ST. Detailed 
descriptions of sound and graphics 
chips, Internal hardware, I/O ports, 
using GEM. Commented BIOS listing. 
An indispensable reference for your ST 
library. 450pp $19.95 

GEM Programmer's Reference 
For serious programmers needing 
detailed information on GEM. 
Presented in an easy-to-understand 
format. All examples in C or assembly 
language. Covers VDI and AES 
functions. No serious programmer 
should be without. 410pp $19.95 

3D Graphics Programming 

FANTASTIC! Leam how to create 
fantastic and impressive 3D graphics 
on your Atari ST. Rotate, zoom and 
shade 3D objects. All programs written 
in machine language for high speed. 
Learn the mathematics behind 3D 
graphics. Hidden line removal, shading. 
Includes 3D pattern maker and 
animator. 350pp $24.95 
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now PLAYIMQ AT A SOFTWARE DEALER NEAR YOU 
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